v-pick-push ( vec -- vec' )
Vocabulary
json.reader.private
Definition
USING:
kernel
math
sequences
;
IN:
json.reader.private
:
v-pick-push
( vec -- vec' )
dup
length
3
>=
[
dup
[
pop
]
[
second-last
]
bi
push
]
when
;