slot-change-quot ( slots quot -- quot' )


Vocabulary
compiler.cfg.renaming.functor

Inputs
slotsan object
quotan object


Outputs
quot'an object


Definition
USING: kernel sequences slots ;

IN: compiler.cfg.renaming.functor

: slot-change-quot ( slots quot -- quot' )
[ ] curry [ dip changer-word [ ] 2sequence ] curry map
[ ] join [ drop ] append ;