steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2012-05-29 15:58:19 -07:00
parent f53f6993ec
commit 915176822b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sequences/sequences.factor
View File

@ -341,7 +341,7 @@ M: immutable-sequence clone-like like ; inline
PRIVATE> PRIVATE>
: append-as ( seq1 seq2 exemplar -- newseq ) : append-as ( seq1 seq2 exemplar -- newseq )
[ over length over length + ] dip [ 2dup [ length ] bi@ + ] dip
[ (append) ] new-like ; inline [ (append) ] new-like ; inline
: 3append-as ( seq1 seq2 seq3 exemplar -- newseq ) : 3append-as ( seq1 seq2 seq3 exemplar -- newseq )
@ -352,9 +352,9 @@ PRIVATE>
: append ( seq1 seq2 -- newseq ) over append-as ; : 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 ; : 3append ( seq1 seq2 seq3 -- newseq ) pick 3append-as ;