Ticket #719: request-vars-getter-with-no-arguments-case-lambda.diff

spiffy-request-vars.scm

@@ -120 +120 @@
                  ((request-body) request-body)
                  ((query-string) query-string-vars)
                  (else (error 'request-vars (conc "Unkown source: " source))))))
-
-    (lambda (var #!optional default/converter)
+    (case-lambda
+     (() vals)
+     ((var #!optional default/converter)
       (let* ((var (if (string? var)
                       (string->symbol var)
                       var)))
@@ -130 +131 @@
             (let ((vals (req-vars/vals var vals)))
               (if (null? vals)
                   default/converter
-                  (car vals))))))))
+                  (car vals)))))))))
 
 (define-syntax with-request-vars*
   (syntax-rules ()