Handbook
Glossary
linear-case-quot ( default assoc -- quot )
Vocabulary
combinators
Inputs
default
an
object
assoc
an
object
Outputs
quot
an
object
Definition
USING:
assocs
kernel
quotations
sequences
;
IN:
combinators
:
linear-case-quot
( default assoc -- quot )
[
[
1quotation
\
dup
prefix
\
=
suffix
]
[
\
drop
prefix
]
bi*
]
assoc-map
reverse!
alist>quot
;