wrappers: make new-wrapper inline

2009-02-09 00:23:26 -06:00 · 2009-02-09 00:23:26 -06:00 · 3391dc5935
parent 828ecde1ca
commit 3391dc5935
1 changed files with 2 additions and 2 deletions
--- a/basis/ui/gadgets/wrappers/wrappers.factor
+++ b/basis/ui/gadgets/wrappers/wrappers.factor
@ -1,12 +1,12 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors ui.gadgets kernel ;
-
 IN: ui.gadgets.wrappers

 TUPLE: wrapper < gadget ;

-: new-wrapper ( child class -- wrapper ) new-gadget swap add-gadget ;
+: new-wrapper ( child class -- wrapper )
+    new-gadget swap add-gadget ; inline

 : <wrapper> ( child -- wrapper ) wrapper new-wrapper ;