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

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

@ -57,18 +57,18 @@ 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
[ nehe4-update-thread ] in-thread drop ; [ nehe4-update-thread ] in-thread drop ;
M: nehe4-gadget ungraft* ( gadget -- ) M: nehe4-gadget ungraft* ( gadget -- )
t swap set-nehe4-gadget-quit? ; t swap set-nehe4-gadget-quit? ;
: run4 ( -- ) : run4 ( -- )
<nehe4-gadget> "NeHe Tutorial 4" open-window ; <nehe4-gadget> "NeHe Tutorial 4" open-window ;