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

@ -59,4 +59,5 @@ DEFER: check-status
: 24-able? ( vector -- t/f ) [ makes-24? ] with-datastack first ;
: 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 ;
: play-game ( -- ) set-commands 24-able repeat ;
MAIN: play-game