From 8199a19571a68cf5de7e5d08830dd8eef25db2c1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 5 Jun 2008 02:42:44 -0500
Subject: [PATCH] Inference fix

---
 extra/pango/cairo/gadgets/gadgets.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/pango/cairo/gadgets/gadgets.factor b/extra/pango/cairo/gadgets/gadgets.factor
index 4c46b4e501..118ed76afc 100644
--- a/extra/pango/cairo/gadgets/gadgets.factor
+++ b/extra/pango/cairo/gadgets/gadgets.factor
@@ -33,7 +33,7 @@ TUPLE: pango-gadget < cairo-gadget text font ;
         swap >>font ;
 
 : setup-layout ( {font,text} -- quot )
-    first2 '[ , layout-font , layout-text ] ;
+    first2 '[ , layout-font , layout-text ] ; inline
 
 M: pango-gadget quot>> ( gadget -- quot )
     cache-key setup-layout [ show-layout ] compose