From 0d38d2f7e82a05df5d9d9c56ffd9f93efbac7b0b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 15 Mar 2009 18:28:46 -0500 Subject: [PATCH] Fix more stack effects --- basis/http/server/server.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/http/server/server.factor b/basis/http/server/server.factor index f2f3deead2..d7f6f1841a 100755 --- a/basis/http/server/server.factor +++ b/basis/http/server/server.factor @@ -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> ] 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 ] [