From 24c9dbe16069758723adb92747dc9a82cee6982c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Thu, 18 Dec 2014 21:33:42 +0100 Subject: [PATCH] compiler.cfg.stacks.height: these words are unused --- basis/compiler/cfg/stacks/height/height.factor | 11 ----------- 1 file changed, 11 deletions(-) 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* - ; -M: rs-loc translate-loc [ n>> ] [ rs-heights get at ] bi* - ; - -: 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* + ; M: rs-loc untranslate-loc [ n>> ] [ rs-heights get at ] bi* + ; - -: untranslate-locs ( assoc bb -- assoc' ) - '[ [ _ untranslate-loc ] dip ] assoc-map ;