Handbook
Glossary
pretty-shuffle ( effect -- word/f )
Vocabulary
compiler.tree.debugger
Inputs
effect
an
object
Outputs
word/f
an
object
Definition
USING:
accessors
arrays
kernel
match
;
IN:
compiler.tree.debugger
:
pretty-shuffle
( effect -- word/f )
[
in>>
]
[
out>>
]
bi
2array
{
{
{
{
}
{
}
}
[
]
}
{
{
{
?a
}
{
?a
}
}
[
]
}
{
{
{
?a
?b
}
{
?a
?b
}
}
[
]
}
{
{
{
?a
?b
?c
}
{
?a
?b
?c
}
}
[
]
}
{
{
{
?a
}
{
}
}
[
drop
]
}
{
{
{
?a
?b
}
{
}
}
[
2drop
]
}
{
{
{
?a
?b
?c
}
{
}
}
[
3drop
]
}
{
{
{
?a
}
{
?a
?a
}
}
[
dup
]
}
{
{
{
?a
?b
}
{
?a
?b
?a
?b
}
}
[
2dup
]
}
{
{
{
?a
?b
?c
}
{
?a
?b
?c
?a
?b
?c
}
}
[
3dup
]
}
{
{
{
?a
?b
}
{
?a
?b
?a
}
}
[
over
]
}
{
{
{
?b
?a
}
{
?a
?b
}
}
[
swap
]
}
{
{
{
?b
?a
?c
}
{
?a
?b
?c
}
}
[
swapd
]
}
{
{
{
?a
?b
}
{
?a
?a
?b
}
}
[
dupd
]
}
{
{
{
?a
?b
?c
}
{
?a
?b
?c
?a
}
}
[
pick
]
}
{
{
{
?a
?b
?c
}
{
?c
?a
?b
}
}
[
-rot
]
}
{
{
{
?a
?b
?c
}
{
?b
?c
?a
}
}
[
rot
]
}
{
{
{
?a
?b
}
{
?b
}
}
[
nip
]
}
{
{
{
?a
?b
?c
}
{
?c
}
}
[
2nip
]
}
{
_
f
}
}
match-choose
;