steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

console fix

cvs redoing-recursive-inference
Slava Pestov 2004-12-27 00:02:40 +00:00
parent 7660f5ada9
commit 54d5f7838d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/sdl/console.factor
View File

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