Permalink
Browse files

Make (Web:header ...) work for existing headers.

Existing headers will be replaced, which seems to be the original code's
intention.
  • Loading branch information...
1 parent 3c7868f commit 72f6843a8152e7b456961ecd8a2765cc7fad0c19 @km km committed Dec 10, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 web.lsp
View
@@ -360,7 +360,7 @@
(define (header key value)
(if (lookup key headers)
- (setf (assoc key headers) value)
+ (setf (assoc key headers) (list key value))
(push (list key value) headers -1)))
;; @syntax (Web:redir <str-url>)

0 comments on commit 72f6843

Please sign in to comment.