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

ui: short-circuit layout-queued if deque is empty.

db4
John Benediktsson 2012-07-31 20:26:51 -07:00
parent 4f418b14af
commit 17edc5e63a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ui/ui.factor
View File

@ -114,13 +114,17 @@ M: world ungraft*
dup hand-world get-global eq? dup hand-world get-global eq?
[ hand-loc get-global swap move-hand ] [ drop ] if ; [ hand-loc get-global swap move-hand ] [ drop ] if ;
: layout-queued ( -- seq ) : (layout-queued) ( deque -- seq )
[ [
in-layout? on in-layout? on
layout-queue [ [
dup layout find-world [ , ] when* dup layout find-world [ , ] when*
] slurp-deque ] slurp-deque
] { } make members ; ] { } make members ; inline
: layout-queued ( -- seq )
layout-queue dup deque-empty?
[ drop { } ] [ (layout-queued) ] if ;
: redraw-worlds ( seq -- ) : redraw-worlds ( seq -- )
[ dup update-hand draw-world ] each ; [ dup update-hand draw-world ] each ;