Updating code for make and fry changes

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

diff --git a/basis/http/server/cgi/cgi.factor b/basis/http/server/cgi/cgi.factor
index 354ebd8f704513accc98e4b64670bf3e3e074a90..0a3cb5cff34b67e693497f5f382d0918728a4a1f 100755 (executable)
--- a/basis/http/server/cgi/cgi.factor
+++ b/basis/http/server/cgi/cgi.factor
@@ -50,7 +50,7 @@ IN: http.server.cgi
     200 >>code\r
     "CGI output follows" >>message\r
     swap '[\r
-        , output-stream get swap <cgi-process> <process-stream> [\r
+        _ output-stream get swap <cgi-process> <process-stream> [\r
             post-request? [ request get post-data>> raw>> write flush ] when\r
             input-stream get swap (stream-copy)\r
         ] with-stream\r