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

Fix stack effect

release
Slava Pestov 2007-12-08 03:21:40 -05:00
parent 8c7ef92ffa
commit 49cbac32af
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/nehe/4/4.factor
View File

@ -57,11 +57,11 @@ M: nehe4-gadget draw-gadget* ( gadget -- )
dup nehe4-gadget-rquad 0.15 - swap set-nehe4-gadget-rquad ; dup nehe4-gadget-rquad 0.15 - swap set-nehe4-gadget-rquad ;
: nehe4-update-thread ( gadget -- ) : nehe4-update-thread ( gadget -- )
dup nehe4-gadget-quit? [ dup nehe4-gadget-quit? [ drop ] [
redraw-interval sleep redraw-interval sleep
dup relayout-1 dup relayout-1
nehe4-update-thread nehe4-update-thread
] unless ; ] if ;
M: nehe4-gadget graft* ( gadget -- ) M: nehe4-gadget graft* ( gadget -- )
[ f swap set-nehe4-gadget-quit? ] keep [ f swap set-nehe4-gadget-quit? ] keep