jamshred: fixed hang bug with a call to yield (I think it's fixed)

2008-05-09 00:09:12 +10:00 · 2008-05-09 00:09:12 +10:00 · 70ac6fdc15
parent 28d7fc37b8
commit 70ac6fdc15
1 changed files with 1 additions and 1 deletions
--- a/extra/jamshred/jamshred.factor
+++ b/extra/jamshred/jamshred.factor
@ -23,7 +23,7 @@ M: jamshred-gadget draw-gadget* ( gadget -- )
    ] [
        dup [ jamshred>> jamshred-update ]
        [ relayout-1 ] bi
-        10 sleep jamshred-loop
+        yield jamshred-loop
    ] if ;

 : fullscreen ( gadget -- )