diff --git a/extra/24-game/24-game.factor b/extra/24-game/24-game.factor index 52f0cd6833..126215ab13 100644 --- a/extra/24-game/24-game.factor +++ b/extra/24-game/24-game.factor @@ -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 ; \ No newline at end of file +: play-game ( -- ) set-commands 24-able repeat ; +MAIN: play-game \ No newline at end of file