Cause error* to actually raise the error
svn: r5051
This commit is contained in:
parent
8ebd40d0e5
commit
6335ee3c03
|
@ -64,9 +64,10 @@
|
||||||
;; constructs a cookie-error struct from the given error message
|
;; constructs a cookie-error struct from the given error message
|
||||||
;; (added to fix exceptions-must-take-immutable-strings bug)
|
;; (added to fix exceptions-must-take-immutable-strings bug)
|
||||||
(define (error* fmt . args)
|
(define (error* fmt . args)
|
||||||
(make-cookie-error
|
(raise
|
||||||
(string->immutable-string (apply format fmt args))
|
(make-cookie-error
|
||||||
(current-continuation-marks)))
|
(string->immutable-string (apply format fmt args))
|
||||||
|
(current-continuation-marks))))
|
||||||
|
|
||||||
;; The syntax for the Set-Cookie response header is
|
;; The syntax for the Set-Cookie response header is
|
||||||
;; set-cookie = "Set-Cookie:" cookies
|
;; set-cookie = "Set-Cookie:" cookies
|
||||||
|
|
Loading…
Reference in New Issue
Block a user