sequence: move check-grow-copy

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 12804ccb5c42c03e9f8ce40289a25f61242454dc..1716e5ce972c783d33c598c4947fa0f0e6ad5c12 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -326,9 +326,6 @@ C: <copier> copier
 : bounds-check-head ( n seq -- n seq )
     over 0 < [ bounds-error ] when ; inline
 
-: check-grow-copy ( dst n src -- dst src n )
-    over [ lengthd + lengthen ] 2keep ; inline
-
 : copy-unsafe ( src i dst -- )
     [ [ length check-length 0 ] keep ] 2dip <copier> (copy) drop ; inline
 

diff --git a/extra/sequences/seq/seq.factor b/extra/sequences/seq/seq.factor
index 817acd0661874d02990dd203f71246c79986dcdf..d80ed51147535c866d70521d32f2a5945164fc3b 100644 (file)
--- a/extra/sequences/seq/seq.factor
+++ b/extra/sequences/seq/seq.factor
@@ -23,6 +23,9 @@ M: sequence seq-shorten 2dup lengthd > [ seq-set-length ] [ drop ] if ; inline
 
 : seq-push-all ( dst src -- dst ) [ length seq-grow-copy ] keep seq-copy-unsafe ; inline
 
+: check-grow-copy ( dst n src -- dst src n )
+    over [ lengthd + lengthen ] 2keep ; inline
+
 : seq-copy ( dst dst-n src -- dst ) check-grow-copy seq-copy-unsafe ; inline
 
 <PRIVATE