Skip to content

Commit 355e140

Browse files
committed
sequences: un-inline prepend to fix "cannot call" error.
1 parent f4c7651 commit 355e140

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

core/sequences/sequences.factor

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -341,7 +341,7 @@ M: immutable-sequence clone-like like ; inline
341341
PRIVATE>
342342

343343
: append-as ( seq1 seq2 exemplar -- newseq )
344-
[ over length over length + ] dip
344+
[ 2dup [ length ] bi@ + ] dip
345345
[ (append) ] new-like ; inline
346346

347347
: 3append-as ( seq1 seq2 seq3 exemplar -- newseq )
@@ -352,9 +352,9 @@ PRIVATE>
352352

353353
: append ( seq1 seq2 -- newseq ) over append-as ;
354354

355-
: prepend-as ( seq1 seq2 exemplar -- newseq ) swapd append-as ; inline
355+
: prepend-as ( seq1 seq2 exemplar -- newseq ) swapd append-as ;
356356

357-
: prepend ( seq1 seq2 -- newseq ) over prepend-as ; inline
357+
: prepend ( seq1 seq2 -- newseq ) over prepend-as ;
358358

359359
: 3append ( seq1 seq2 seq3 -- newseq ) pick 3append-as ;
360360

0 commit comments

Comments
 (0)