growable: M\ growable contract should be declared inline, fixes performance regression on stack benchmark

2009-10-30 20:53:47 -05:00 · 2009-10-30 20:53:47 -05:00 · 388157a52a
parent fc52fbd9f4
commit 388157a52a
1 changed files with 1 additions and 1 deletions
--- 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