Inference fix

db4
Slava Pestov 2008-06-05 02:42:44 -05:00
parent 4dfa354673
commit 8199a19571
1 changed files with 1 additions and 1 deletions

View File

@ -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