?push-all ( seq1 seq2 -- seq1+seq2 )
Vocabulary
xmode.rules
Definition
USING:
kernel
sequences
;
IN:
xmode.rules
:
?push-all
( seq1 seq2 -- seq1+seq2 )
[
over
[
[
V{
}
like
]
dip
append!
]
[
nip
]
if
]
when*
;