suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cause error* to actually raise the error

Browse Source 
svn: r5051
This commit is contained in:
Jacob Matthews 2006-12-06 22:46:55 +00:00
parent 8ebd40d0e5
commit 6335ee3c03
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/net/cookie-unit.ss
View File

@ -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