From 6335ee3c03b229f3902c2012bb4c0a4bd6815879 Mon Sep 17 00:00:00 2001 From: Jacob Matthews Date: Wed, 6 Dec 2006 22:46:55 +0000 Subject: [PATCH] Cause error* to actually raise the error svn: r5051 --- collects/net/cookie-unit.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/net/cookie-unit.ss b/collects/net/cookie-unit.ss index 9429fc6467..8b5317e331 100644 --- a/collects/net/cookie-unit.ss +++ b/collects/net/cookie-unit.ss @@ -64,9 +64,10 @@ ;; constructs a cookie-error struct from the given error message ;; (added to fix exceptions-must-take-immutable-strings bug) (define (error* fmt . args) - (make-cookie-error - (string->immutable-string (apply format fmt args)) - (current-continuation-marks))) + (raise + (make-cookie-error + (string->immutable-string (apply format fmt args)) + (current-continuation-marks)))) ;; The syntax for the Set-Cookie response header is ;; set-cookie = "Set-Cookie:" cookies