Fixing various test failures and updating some more vocabs for >r/r> removal

[factor.git] / core / growable / growable.factor

diff --git a/core/growable/growable.factor b/core/growable/growable.factor
index 3c487af0a54245e5e82631f282af97d4bb3b5497..c4970f98bd249ec8bf905d02ff30b5e3d6e114f3 100644 (file)
--- a/core/growable/growable.factor
+++ b/core/growable/growable.factor
@@ -1,7 +1,5 @@
 ! Copyright (C) 2005, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-
-! Some low-level code used by vectors and string buffers.
 USING: accessors kernel kernel.private math math.private
 sequences sequences.private ;
 IN: growable
@@ -22,7 +20,7 @@ M: growable set-nth-unsafe underlying>> set-nth-unsafe ;
 
 : contract ( len seq -- )
     [ length ] keep
-    [ 0 -rot set-nth-unsafe ] curry
+    [ [ 0 ] 2dip set-nth-unsafe ] curry
     (each-integer) ; inline
 
 : growable-check ( n seq -- n seq )