15 lines
497 B
Factor
15 lines
497 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors arrays assocs compiler.cfg.def-use
|
|
compiler.cfg.instructions compiler.cfg.instructions.syntax
|
|
compiler.cfg.registers compiler.cfg.renaming.functor
|
|
generic.parser kernel namespaces sequences sets words ;
|
|
IN: compiler.cfg.renaming
|
|
|
|
SYMBOL: renamings
|
|
|
|
: rename-value ( vreg -- vreg' )
|
|
renamings get ?at drop ;
|
|
|
|
RENAMING: rename "[ rename-value ]" "[ rename-value ]" "[ drop next-vreg ]"
|