diff --git a/scheme/lib/parse-forms.scm b/scheme/lib/parse-forms.scm index 789a037..f3fd379 100644 --- a/scheme/lib/parse-forms.scm +++ b/scheme/lib/parse-forms.scm @@ -32,13 +32,6 @@ ;;; ;;; In either case, the data is "form-url encoded" (as described above). -;;; Form-query parsing -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; Parse "foo=x&bar=y" into (("foo" . "x") ("bar" . "y")) -;;; Substrings are plus-decoded and then URI-decoded. This implementation is -;;; slightly sleazy as it will successfully parse a string like "a&b=c&d=f" -;;; into (("a&b" . "c") ("d" . "f")) without a complaint. - (define (parse-html-form-query q) (let ((qlen (string-length q))) (let recur ((i 0))