steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix CGI

db4
Slava Pestov 2009-03-07 22:09:57 -06:00
parent f3c2d32d26
commit 6330272760
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/http/server/cgi/cgi.factor
View File

@ -53,9 +53,9 @@ IN: http.server.cgi
"CGI output follows" >>message "CGI output follows" >>message
swap '[ swap '[
binary encode-output 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 post-request? [ request get post-data>> data>> write flush ] when
'[ _ write ] each-block '[ _ stream-write ] each-block
] with-stream ] with-stream
] >>body ; ] >>body ;