From 54d5f7838de6b0c87c64d5440f26045a837e37b3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 27 Dec 2004 00:02:40 +0000
Subject: [PATCH] console fix

---
 library/sdl/console.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/library/sdl/console.factor b/library/sdl/console.factor
index ad9d569925..dd4e560086 100644
--- a/library/sdl/console.factor
+++ b/library/sdl/console.factor
@@ -248,6 +248,8 @@ M: alien handle-event ( event -- ? )
     input-continuation get [ f swap call ] when*
     SDL_Quit ;
 
+SYMBOL: escape-continuation
+
 : start-console ( -- )
     <namespace> [
         640 480 32 SDL_HWSURFACE init-screen
@@ -255,11 +257,14 @@ M: alien handle-event ( event -- ? )
     ] extend console set
 
     [
+        escape-continuation set
+
         [
             console get swap <console-stream>
             [ [ print-banner listener ] in-thread ] with-stream
             SDL_Quit
-            call ( return from start-console word )
+            ( return from start-console word )
+            escape-continuation get call
         ] callcc0
 
         console get [