fix furnace

2008-02-25 16:02:21 -06:00 · 2008-02-25 16:02:21 -06:00 · 63b84d4f2b
parent 411263b8c7
commit 63b84d4f2b
1 changed files with 1 additions and 1 deletions
--- a/extra/http/server/responders/responders.factor
+++ b/extra/http/server/responders/responders.factor
@ -77,7 +77,7 @@ SYMBOL: max-post-request
 1024 256 * max-post-request set-global

 : content-length ( header -- n )
-    "content-length" peek-at string>number dup [
+    "content-length" swap peek-at string>number dup [
        dup max-post-request get > [
            "Content-Length > max-post-request" throw
        ] when