state>clears ( state -- clears )

Vocabulary

compiler.cfg.stacks.clearing

Inputs

state

an object

Outputs

clears

an object

Definition

USING: compiler.cfg.instructions compiler.cfg.registers
compiler.cfg.stacks kernel sequences ;

IN: compiler.cfg.stacks.clearing

: state>clears ( state -- clears )
    [ second ] map { ds-loc rs-loc } [ swap create-locs ] 2map
    concat [ f ##clear boa ] map ;