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

Remove a spin usage

db4
Slava Pestov 2009-01-26 17:58:43 -06:00
parent f5d850f39e
commit b12d53938d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/gadgets/panes/panes.factor
View File

@ -327,8 +327,7 @@ M: paragraph stream-write1
[ H{ } swap gadget-bl drop ] [ gadget-write1 ] if ; [ H{ } swap gadget-bl drop ] [ gadget-write1 ] if ;
: gadget-format ( string style stream -- ) : gadget-format ( string style stream -- )
spin dup empty? '[ _ swap <styled-label> _ swap add-gadget drop ] unless-empty ;
[ 3drop ] [ <styled-label> add-gadget drop ] if ;
M: pack stream-format M: pack stream-format
gadget-format ; gadget-format ;