From 06c8b5ea5d98749481f0ed42bedbcaccdc4495bf Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sun, 29 Sep 2002 13:43:08 +0000
Subject: [PATCH] add GET-BINDINGS: gets bindings out of REQUEST

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

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index 3edaec8..a69a6eb 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -36,6 +36,8 @@
 ;;; This only works for GET and POST methods.
 
 (define form-query parse-html-form-query)
+(define (get-bindings request)
+  (form-query (http-url:search (request:url request))))
 
 (define (extract-bindings bindings key)
   (let ((key (if (symbol? key) (symbol->string key) key)))