compatible with demos menu

db4
Rex Ford 2008-08-12 02:42:23 -04:00
parent bd168d06f2
commit 2271aae7f0
1 changed files with 2 additions and 1 deletions

View File

@ -60,3 +60,4 @@ DEFER: check-status
: 24-able ( -- vector ) build-quad dup 24-able? [ drop build-quad ] unless ;
: set-commands ( -- ) { + - * / rot swap q } commands set ;
: play-game ( -- ) set-commands 24-able repeat ;
MAIN: play-game