Fix CGI

2009-03-07 22:09:57 -06:00 · 2009-03-07 22:09:57 -06:00 · 6330272760
parent f3c2d32d26
commit 6330272760
1 changed files with 2 additions and 2 deletions
--- a/basis/http/server/cgi/cgi.factor
+++ b/basis/http/server/cgi/cgi.factor
@ -53,9 +53,9 @@ IN: http.server.cgi
    "CGI output follows" >>message
    swap '[
        binary encode-output
-        _ output-stream get swap <cgi-process> binary <process-stream> [
+        output-stream get _ <cgi-process> binary <process-stream> [
            post-request? [ request get post-data>> data>> write flush ] when
-            '[ _ write ] each-block
+            '[ _ stream-write ] each-block
        ] with-stream
    ] >>body ;