Remove a spin usage

2009-01-26 17:58:43 -06:00 · 2009-01-26 17:58:43 -06:00 · b12d53938d
parent f5d850f39e
commit b12d53938d
1 changed files with 1 additions and 2 deletions
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@ -327,8 +327,7 @@ M: paragraph stream-write1
    [ H{ } swap gadget-bl drop ] [ gadget-write1 ] if ;

 : gadget-format ( string style stream -- )
-    spin dup empty?
-    [ 3drop ] [ <styled-label> add-gadget drop ] if ;
+    '[ _ swap <styled-label> _ swap add-gadget drop ] unless-empty ;

 M: pack stream-format
    gadget-format ;