Adding a work around for the compiler bug... plus I like it better. And adding a regression test for the compiler.

svn: r18619

collects/tests/compiler/regression.ss

@@ -0,0 +1,17 @@
+#lang scheme
+(require net/cookie
+         tests/eli-tester)
+
+(define (set-when-true fn val)
+  (if val
+      (λ (c) (fn c val))
+      (λ (c) c)))
+
+(define (make-cookie name val)
+  ((lambda (x)
+     ((set-when-true cookie:add-comment #f)
+      x))
+   (set-cookie name val)))
+
+(test
+ (cookie? (make-cookie "name" "value")))

collects/web-server/http/cookie.ss

@@ -16,20 +16,16 @@
  [cookie->header (cookie? . -> . header?)]
  [xexpr-response/cookies ((listof cookie?) pretty-xexpr/c . -> . response/full?)])
 
-(define (set-when-true fn val)
+(define-syntax setter
-  (if val
-      (λ (c) (fn c val))
-      (λ (c) c)))
-
-(define-syntax o
   (syntax-rules ()
-    [(o f) f]
+    [(_ e)
-    [(o f f2 ...) (lambda (x) (o* x f f2 ...))]))
+     e]
-
+    [(_ e (f arg) . more)
-(define-syntax o*
+     (let ([x e])
-  (syntax-rules ()
+       (setter (if arg
-    [(o* x) x]
+                   (f x arg)
-    [(o* x f g ...) (f (o* x g ...))]))
+                   x)
+               . more))]))
 
 (define (make-cookie name val
                      #:comment [comment #f]
@@ -37,12 +33,12 @@
                      #:max-age [max-age #f]
                      #:path    [path #f]
                      #:secure? [secure? #f])
-  ((o (set-when-true cookie:add-comment comment)
+  (setter (set-cookie name val)
-      (set-when-true cookie:add-domain domain)
+          (cookie:add-comment comment)
-      (set-when-true cookie:add-max-age max-age)
+          (cookie:add-domain domain)
-      (set-when-true cookie:add-path path)
+          (cookie:add-max-age max-age)
-      (set-when-true cookie:secure secure?))
+          (cookie:add-path path)
-   (set-cookie name val)))
+          (cookie:secure secure?)))
 
 ;; cookie->header : cookie -> header
 ;; gets the header that will set the given cookie