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 ] [ content-charset>> encode-output ]
[ write-response-body ] [ write-response-body ]
bi bi
] unless ; ] unless drop ;
M: raw-response write-response ( respose -- ) M: raw-response write-response ( respose -- )
write-response-line write-response-line
write-response-body write-response-body
drop ; drop ;
M: raw-response write-full-response ( response -- ) M: raw-response write-full-response ( request response -- )
write-response ; nip write-response ;
: post-request? ( -- ? ) request get method>> "POST" = ; : 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 ; swap development? get [ make-http-error >>body ] [ drop ] if ;
: do-response ( response -- ) : do-response ( response -- )
[ request get swap write-full-response ] '[ request get _ write-full-response ]
[ [
[ \ do-response log-error ] [ \ do-response log-error ]
[ [