commit b807682949cf6ea1dd562fbaba958f2484873df6 parent c60dd497e13b302caa48c81916b2a1054e249a5d Author: Natasha Kerensikova <natgh@instinctive.eu> Date: Mon, 14 Sep 2026 17:35:52 +0000 URL encoding of space is corrected Diffstat:
| M | src/cgi.scm | | | 8 | ++++++-- |
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm @@ -148,10 +148,14 @@ END-OF-CSS (h url-hdigit) (l url-hdigit)) (result (integer->char (+ (* 16 h) l))))) +(define url-value-char + (any-of url-percent-escape + (preceded-by (is #\+) (result #\space)) + item)) (define url-value (as-string - (any-of (repeated (any-of url-percent-escape item) until: (is #\&)) - (repeated (any-of url-percent-escape item))))) + (any-of (repeated url-value-char until: (is #\&)) + (repeated url-value-char)))) (define url-key (as-string (repeated item until: (is #\=)))) (define url-kv-pair