From ccb3d65852d868300de5b57fd59c4c15af7e3e87 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 11 Mar 2016 14:06:12 -0800 Subject: [PATCH] http.server.requests: Save the bad line for debugging. --- basis/http/server/requests/requests.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/http/server/requests/requests.factor b/basis/http/server/requests/requests.factor index 8348c029ff..efb8321198 100644 --- a/basis/http/server/requests/requests.factor +++ b/basis/http/server/requests/requests.factor @@ -14,13 +14,13 @@ ERROR: invalid-content-length < request-error content-length ; ERROR: content-length-missing < request-error ; -ERROR: bad-request-line < request-error parse-error ; +ERROR: bad-request-line < request-error line parse-error ; : check-absolute ( url -- ) path>> dup "/" head? [ drop ] [ invalid-path ] if ; inline : parse-request-line-safe ( string -- triple ) - [ parse-request-line ] [ nip bad-request-line ] recover ; + [ parse-request-line ] [ bad-request-line ] recover ; : read-request-line ( request -- request ) read-?crlf [ dup "" = ] [ drop read-?crlf ] while