M: insn eliminate-write-barrier drop t ;
: write-barriers-step ( insns -- insns' )
- HS{ } clone fresh-allocations set
- HS{ } clone mutated-objects set
- H{ } clone copies set
+ HS{ } clone fresh-allocations namespaces:set
+ HS{ } clone mutated-objects namespaces:set
+ H{ } clone copies namespaces:set
[ eliminate-write-barrier ] filter! ;
: eliminate-write-barriers ( cfg -- )