From 0d24e65e4e18717a89606daa0b403675a50c131d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 30 Oct 2009 20:53:47 -0500
Subject: [PATCH] growable: M\ growable contract should be declared inline,
 fixes performance regression on stack benchmark

---
 core/growable/growable.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/growable/growable.factor b/core/growable/growable.factor
index 2ca11e2e24..3d5f16d7f1 100644
--- a/core/growable/growable.factor
+++ b/core/growable/growable.factor
@@ -23,7 +23,7 @@ GENERIC: contract ( len seq -- )
 M: growable contract ( len seq -- )
     [ length ] keep
     [ [ 0 ] 2dip set-nth-unsafe ] curry
-    (each-integer) ;
+    (each-integer) ; inline
 
 : growable-check ( n seq -- n seq )
     over 0 < [ bounds-error ] when ; inline