Handbook
Glossary
slot-array-quot ( slots -- quot )
Vocabulary
compiler.cfg.def-use.private
Inputs
slots
an
object
Outputs
quot
an
object
Definition
USING:
arrays
combinators
kernel
quotations
sequences
sequences.generalizations
slots
;
IN:
compiler.cfg.def-use.private
:
slot-array-quot
( slots -- quot )
[
reader-word
1quotation
]
map
dup
length
{
{
0
[
drop
[
drop
f
]
]
}
{
1
[
first
[
1array
]
compose
]
}
{
2
[
first2
[
bi
2array
]
2curry
]
}
[
[
[
cleave
]
curry
]
dip
[
narray
]
curry
compose
]
}
case
;