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