hat-quot ( insn -- quot )

Vocabulary

compiler.cfg.hats.private

Inputs

insn

an object

Outputs

quot

an object

Definition

USING: accessors combinators compiler.cfg.instructions.syntax
kernel sequences words ;

IN: compiler.cfg.hats.private

: hat-quot ( insn -- quot )
    [
        "insn-slots" word-prop
        [ ] [
            type>> {
                { def [ ~quotation~ ] }
                { temp [ ~quotation~ ] }
                [ drop [ ] ]
            } case swap [ dip ] curry compose
        ] reduce
    ] keep
    insn-ctor-name "compiler.cfg.instructions" lookup-word
    suffix ;