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

spiffy-request-vars.scm

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