pack ( str -- quot )


Vocabulary
pack

Inputs
stran object


Outputs
quotan object


Definition
USING: assocs combinators combinators.smart kernel pack.private
sequences ;

IN: pack

MACRO: pack ( str -- quot )
expand-pack-format
[ pack-table at [ execute ] curry ] { } map-as
[ spread ] curry [ input<sequence ] curry
[ B{ } append-outputs-as ] curry ;