Fixing everything for mandatory stack effects

[factor.git] / extra / furnace / furnace.factor

diff --git a/extra/furnace/furnace.factor b/extra/furnace/furnace.factor
index 3566d45c5b0e4487c0bccf8c80e95841cb549b1f..99ccf33eec83b555c35c53de6e5f220557399a76 100644 (file)
--- a/extra/furnace/furnace.factor
+++ b/extra/furnace/furnace.factor
@@ -86,7 +86,8 @@ M: object modify-form drop ;
 
 SYMBOL: exit-continuation
 
-: exit-with exit-continuation get continue-with ;
+: exit-with ( value -- )
+    exit-continuation get continue-with ;
 
 : with-exit-continuation ( quot -- )
     '[ exit-continuation set @ ] callcc1 exit-continuation off ;