http.download: move download words to their own vocabulary

[factor.git] / basis / http / server / requests / requests.factor

diff --git a/basis/http/server/requests/requests.factor b/basis/http/server/requests/requests.factor
index 677a2948a4bc00eed7bec76aaa362d9a9f47ab1b..fce1477f2a3a4cb8177af016309d1fbf1d00c107 100644 (file)
--- a/basis/http/server/requests/requests.factor
+++ b/basis/http/server/requests/requests.factor
@@ -48,11 +48,11 @@ upload-limit [ 200,000,000 ] initialize
 
 : parse-content-length-safe ( request -- content-length )
     "content-length" header [
-        dup string>number [
-            nip dup 0 upload-limit get between? [
+        ?string>number [
+            dup 0 upload-limit get between? [
                 invalid-content-length
             ] unless
-        ] [ invalid-content-length ] if*
+        ] [ invalid-content-length ] if
     ] [ content-length-missing ] if* ;
 
 : parse-content ( request content-type -- post-data )