From 28478e4336e2f1acb990bad48bf2790d04aeee2f Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Thu, 7 Sep 2023 13:01:42 +0200 Subject: Use string-downcase instead of string-downcase! in http-name->symbol Unlike the srfi-1 linear updating procedures with exclamation marks, in srfi-13, the side-effecting operations do *not* necessarily return the string. They just mutate it in-place. This fixes #1826, so that it will work with utf CHICKEN (upcoming C6). --- intarweb.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'intarweb.scm') diff --git a/intarweb.scm b/intarweb.scm index 013fafa..78383d5 100644 --- a/intarweb.scm +++ b/intarweb.scm @@ -228,7 +228,7 @@ (define update-header-contents (make-updater replace-header-contents)) (define update-header-contents! (make-updater replace-header-contents!)) -(define http-name->symbol (compose string->symbol string-downcase!)) +(define http-name->symbol (compose string->symbol string-downcase)) (define symbol->http-name (compose string-titlecase symbol->string)) ;; Make a header set from a literal expression by folding in the headers -- cgit v1.2.3