growable: M\ growable contract should be declared inline, fixes performance regressio...

diff --git a/core/growable/growable.factor b/core/growable/growable.factor
index 2ca11e2e24ec4606cbf4f3a5314a0fb5788808b1..3d5f16d7f14bf34e03eb33d5b10c22707a3e180c 100644 (file)
--- 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