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

space-invaders MAIN: stack effect fix

slava 2006-10-26 05:17:21 +00:00
parent aad13c4eb9
commit 732850bc9b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/space-invaders/space-invaders.factor
View File

@ -322,6 +322,6 @@ M: invaders-gadget graft* ( gadget -- )
M: invaders-gadget ungraft* ( gadget -- ) M: invaders-gadget ungraft* ( gadget -- )
t swap set-invaders-gadget-quit? ; t swap set-invaders-gadget-quit? ;
: run ( -- gadget ) : run ( -- )
<space-invaders> "invaders.rom" over load-rom <invaders-gadget> <space-invaders> "invaders.rom" over load-rom <invaders-gadget>
[ "Space Invaders" open-titled-window ] keep ; "Space Invaders" open-titled-window ;