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

Add a word that waits for a game to finish running

db4
Doug Coleman 2010-06-16 16:05:35 -05:00
parent 6a501d4aa3
commit 22faa12205
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/game/worlds/worlds.factor
View File

@ -74,6 +74,9 @@ M: game-world apply-world-attributes
: start-game ( attributes -- game-world ) : start-game ( attributes -- game-world )
f swap open-window* ; f swap open-window* ;
: wait-game ( attributes -- game-world )
f swap open-window* dup promise>> ?promise drop ;
: define-attributes-word ( word tuple -- ) : define-attributes-word ( word tuple -- )
[ name>> "-attributes" append create-in ] dip define-constant ; [ name>> "-attributes" append create-in ] dip define-constant ;