From 4923286d9684064768195080159efbb4a6f8683b Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 26 Feb 2003 15:55:22 +0000
Subject: [PATCH] Let FORM-QUERY return '() if the query string is #f.

---
 scheme/httpd/surflets/surflets.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index b6f96c4..230a4fe 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -31,7 +31,10 @@
 ;;;     (("button" . "on") ("reply" . "Oh, yes"))
 ;;; This works only for GET and POST methods.
 
-(define form-query parse-html-form-query)
+(define (form-query q)
+  (if q 
+      (parse-html-form-query q) 
+      '()))
 
 ;; Bindings of POST requests can be read only once, since they are
 ;; read from an input port. So we have to cache them, for the case of