From bce82aa91523d02e3fbfb037112a1b4706c8d4f8 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 9 Oct 2007 02:06:58 -0400 Subject: [PATCH] Fix stack effects in cabal --- extra/cabal/cabal.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/extra/cabal/cabal.factor b/extra/cabal/cabal.factor index 278729fb8a..cc51bcf308 100644 --- a/extra/cabal/cabal.factor +++ b/extra/cabal/cabal.factor @@ -69,13 +69,15 @@ cond ; ! : handle-client ( client -- ) dup users> push ! dup [ >user [ handle-user-loop ] with-stream* ] with-scope ; -: handle-client ( client -- ) dup users> push +: handle-client ( client -- ) + dup users> push dup [ >user [ handle-user-loop ] with-stream ] with-scope ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : accept-client-loop ( server -- ) -dup >r accept [ handle-client ] in-thread r> accept-client-loop ; +[ accept [ handle-client ] curry in-thread ] keep +accept-client-loop ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!