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

Fix more stack effects

db4
Slava Pestov 2009-03-15 18:28:46 -05:00
parent 8e55533bfa
commit 0d38d2f7e8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/http/server/server.factor
View File

@ -132,15 +132,15 @@ M: response write-full-response ( request response -- )
[ content-charset>> encode-output ]
[ write-response-body ]
bi
] unless ;
] unless drop ;
M: raw-response write-response ( respose -- )
write-response-line
write-response-body
drop ;
M: raw-response write-full-response ( response -- )
write-response ;
M: raw-response write-full-response ( request response -- )
nip write-response ;
: post-request? ( -- ? ) request get method>> "POST" = ;
@ -182,7 +182,7 @@ main-responder [ <404> <trivial-responder> ] initialize
swap development? get [ make-http-error >>body ] [ drop ] if ;
: do-response ( response -- )
[ request get swap write-full-response ]
'[ request get _ write-full-response ]
[
[ \ do-response log-error ]
[