sequences: un-inline prepend to fix "cannot call" error.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 33f2924769b2851f7e5fef17bbb9e7a377cd4da2..1df9f4867bcc66ea568a8c664661c0bf1c4b2ab8 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -341,7 +341,7 @@ M: immutable-sequence clone-like like ; inline
 PRIVATE>
 
 : append-as ( seq1 seq2 exemplar -- newseq )
-    [ over length over length + ] dip
+    [ 2dup [ length ] bi@ + ] dip
     [ (append) ] new-like ; inline
 
 : 3append-as ( seq1 seq2 seq3 exemplar -- newseq )
@@ -352,9 +352,9 @@ PRIVATE>
 
 : append ( seq1 seq2 -- newseq ) over append-as ;
 
-: prepend-as ( seq1 seq2 exemplar -- newseq ) swapd append-as ; inline
+: prepend-as ( seq1 seq2 exemplar -- newseq ) swapd append-as ;
 
-: prepend ( seq1 seq2 -- newseq ) over prepend-as ; inline
+: prepend ( seq1 seq2 -- newseq ) over prepend-as ;
 
 : 3append ( seq1 seq2 seq3 -- newseq ) pick 3append-as ;