From b12d53938d0b8758f86ced10c86bcfd05c9abbe4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 26 Jan 2009 17:58:43 -0600
Subject: [PATCH] Remove a spin usage

---
 basis/ui/gadgets/panes/panes.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 3295ac5a8a..cfc19f72e2 100644
--- 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 ;