core: remove ?string>number in favor of ?if

[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 fce1477f2a3a4cb8177af016309d1fbf1d00c107..eeb7a56c67ec02f707ccf825fae0c15205cb92d9 100644 (file)
--- a/basis/http/server/requests/requests.factor
+++ b/basis/http/server/requests/requests.factor
@@ -48,11 +48,12 @@ upload-limit [ 200,000,000 ] initialize
 
 : parse-content-length-safe ( request -- content-length )
     "content-length" header [
-        ?string>number [
+        [ 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 )