From 915176822b2b491cf217abbc761a5df46038c16a Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 29 May 2012 15:58:19 -0700 Subject: [PATCH] sequences: un-inline prepend to fix "cannot call" error. --- core/sequences/sequences.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 33f2924769..1df9f4867b 100644 --- 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 ;