jamshred: fixed hang bug with a call to yield (I think it's fixed)
parent
28d7fc37b8
commit
70ac6fdc15
|
@ -23,7 +23,7 @@ M: jamshred-gadget draw-gadget* ( gadget -- )
|
||||||
] [
|
] [
|
||||||
dup [ jamshred>> jamshred-update ]
|
dup [ jamshred>> jamshred-update ]
|
||||||
[ relayout-1 ] bi
|
[ relayout-1 ] bi
|
||||||
10 sleep jamshred-loop
|
yield jamshred-loop
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
: fullscreen ( gadget -- )
|
: fullscreen ( gadget -- )
|
||||||
|
|
Loading…
Reference in New Issue