diff options
| author | Peter Bex <peter@more-magic.net> | 2023-09-07 13:01:42 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2023-09-07 13:01:42 +0200 |
| commit | 28478e4336e2f1acb990bad48bf2790d04aeee2f (patch) | |
| tree | 19664e6e2f243f27d3375aa56808a130700a9348 | |
| parent | ba82b081176e2b651f255996e5b4846d2b32e87e (diff) | |
| download | intarweb-2.0.3.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.scm | 2 |
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 |