diff --git a/basis/compiler/cfg/stacks/height/height.factor b/basis/compiler/cfg/stacks/height/height.factor
index 3c02ea6c27..1eca506e90 100644
--- a/basis/compiler/cfg/stacks/height/height.factor
+++ b/basis/compiler/cfg/stacks/height/height.factor
@@ -10,18 +10,7 @@ SYMBOLS: ds-heights rs-heights ;
 : record-stack-heights ( ds-height rs-height bb -- )
     [ ds-heights get set-at ] [ rs-heights get set-at ] bi-curry bi* ;
 
-GENERIC# translate-loc 1 ( loc bb -- loc' )
-
-M: ds-loc translate-loc [ n>> ] [ ds-heights get at ] bi* - <ds-loc> ;
-M: rs-loc translate-loc [ n>> ] [ rs-heights get at ] bi* - <rs-loc> ;
-
-: translate-locs ( assoc bb -- assoc' )
-    '[ [ _ translate-loc ] dip ] assoc-map ;
-
 GENERIC# untranslate-loc 1 ( loc bb -- loc' )
 
 M: ds-loc untranslate-loc [ n>> ] [ ds-heights get at ] bi* + <ds-loc> ;
 M: rs-loc untranslate-loc [ n>> ] [ rs-heights get at ] bi* + <rs-loc> ;
-
-: untranslate-locs ( assoc bb -- assoc' )
-    '[ [ _ untranslate-loc ] dip ] assoc-map ;