From 3391dc593559bf50e9942bd083820d95c1bdd567 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 9 Feb 2009 00:23:26 -0600
Subject: [PATCH] wrappers: make new-wrapper inline

---
 basis/ui/gadgets/wrappers/wrappers.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/ui/gadgets/wrappers/wrappers.factor b/basis/ui/gadgets/wrappers/wrappers.factor
index ba499f8592..33c67313e2 100644
--- 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 ;