Fix bug #62580.

Really two bugs: (1) mistakenly turning the HTTP method into a symbol; and (2)
calling encapsulate-uri with the wrong number of arguments.

diff --git a/src/runtime/http-io.scm b/src/runtime/http-io.scm
index d3d98c328a38738533309c342be28f2fa948deab..431cc0e521e2d52199da30a1c8d89c0f4bedde43 100644 (file)
--- a/src/runtime/http-io.scm
+++ b/src/runtime/http-io.scm
@@ -349,8 +349,7 @@ USA.
 
 (define parse-request-line
   (*parser
-   (seq (map string->symbol
-            (match (+ (char-set char-set:http-token))))
+   (seq (match (+ (char-set char-set:http-token)))
        " "
        (alt (map intern (match "*"))
             parse-absolute-uri
@@ -369,7 +368,7 @@ USA.
 
 (define parse-simple-request
   (*parser
-   (seq (map string->symbol (match "GET"))
+   (seq (match "GET")
        " "
        parse-uri-path-absolute)))
 

diff --git a/src/runtime/url.scm b/src/runtime/url.scm
index b49f1d1c313b6409ad9616fc642f820615ada889..835ca32dbfa3bc81d628844989f340952cd69128 100644 (file)
--- a/src/runtime/url.scm
+++ b/src/runtime/url.scm
@@ -370,7 +370,8 @@ USA.
   (*parser
    (encapsulate encapsulate-uri
      (seq (values #f #f)
-         parser:path-absolute))))
+         parser:path-absolute
+         (values #f #f)))))
 \f
 (define parser:uri
   (*parser