Updating code for make and fry changes

[factor.git] / extra / ui / gadgets / tabs / tabs.factor

diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor
index 83ed445593f73ae93416623034eeb174a0719e0d..7e09d086c2154d1a27f17ffa89bc00484eacc8b4 100755 (executable)
--- a/extra/ui/gadgets/tabs/tabs.factor
+++ b/extra/ui/gadgets/tabs/tabs.factor
@@ -14,7 +14,7 @@ DEFER: (del-page)
 \r
 :: add-toggle ( model n name toggler -- )\r
   <frame>\r
-    n name toggler parent>> '[ , , , (del-page) ] "X" swap <bevel-button>\r
+    n name toggler parent>> '[ _ _ _ (del-page) ] "X" swap <bevel-button>\r
       @right grid-add\r
     n model name <toggle-button> @center grid-add\r
   toggler swap add-gadget drop ;\r
@@ -23,7 +23,7 @@ DEFER: (del-page)
      [ names>> ] [ model>> ] [ toggler>> ] tri\r
      [ clear-gadget ] keep\r
      [ [ length ] keep ] 2dip\r
-     '[ [ , ] 2dip , add-toggle ] 2each ;\r
+     '[ [ _ ] 2dip _ add-toggle ] 2each ;\r
 \r
 : refresh-book ( tabbed -- )\r
     model>> [ ] change-model ;\r