summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2023-09-07 13:01:42 +0200
committerPeter Bex <peter@more-magic.net>2023-09-07 13:01:42 +0200
commit28478e4336e2f1acb990bad48bf2790d04aeee2f (patch)
tree19664e6e2f243f27d3375aa56808a130700a9348
parentba82b081176e2b651f255996e5b4846d2b32e87e (diff)
downloadintarweb-28478e4336e2f1acb990bad48bf2790d04aeee2f.tar.gz
Use string-downcase instead of string-downcase! in http-name->symbol2.0.3
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).
-rw-r--r--intarweb.scm2
1 files changed, 1 insertions, 1 deletions
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