File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -341,7 +341,7 @@ M: immutable-sequence clone-like like ; inline
341341PRIVATE>
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
You can’t perform that action at this time.
0 commit comments