compiler.cfg.stacks.local: unused words

diff --git a/basis/compiler/cfg/stacks/local/local.factor b/basis/compiler/cfg/stacks/local/local.factor
index 71eb9c25a0a1d7bf06e4c9d2bc4e05f5f9bcaedb..e144258c50bf6fb31bfa5044456da67339774d84 100644 (file)
--- a/basis/compiler/cfg/stacks/local/local.factor
+++ b/basis/compiler/cfg/stacks/local/local.factor
@@ -29,9 +29,6 @@ IN: compiler.cfg.stacks.local
 : translate-local-loc ( loc state -- loc' )
     [ clone ] dip over >loc< 0 1 ? rot nth first - >>n ;
 
-: untranslate-local-loc ( loc state -- loc' )
-    [ clone ] dip over >loc< 0 1 ? rot nth first + >>n ;
-
 : clone-height-state ( state -- state' )
     [ clone ] map ;
 
@@ -59,11 +56,6 @@ SYMBOLS: local-peek-set replaces ;
 : replaces>copy-insns ( replaces -- insns )
     [ [ loc>vreg ] dip ] assoc-map parallel-copy ;
 
-: replaces>replace-insns ( replaces height-state -- insns )
-    [ keys ] dip
-    '[ [ loc>vreg ] [ _ untranslate-local-loc ] bi f ##replace boa ] map
-    [ loc>> n>> 0 >= ] filter ;
-
 : changes>insns ( replaces height-state -- insns )
     [ replaces>copy-insns ] [ height-state>insns ] bi* append ;