diff options
| -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 |