factor: trim using lists

[factor.git] / basis / compiler / cfg / linear-scan / debugger / debugger.factor

diff --git a/basis/compiler/cfg/linear-scan/debugger/debugger.factor b/basis/compiler/cfg/linear-scan/debugger/debugger.factor
index cf68e12a4de6e867940e192af222612d62a18b69..4a34af386050478c2ffac63adbd648c0a646c2fe 100644 (file)
--- a/basis/compiler/cfg/linear-scan/debugger/debugger.factor
+++ b/basis/compiler/cfg/linear-scan/debugger/debugger.factor
@@ -2,15 +2,14 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs
 compiler.cfg.linear-scan.allocation
-compiler.cfg.linear-scan.live-intervals fry kernel math
-namespaces prettyprint sequences strings ;
+compiler.cfg.linear-scan.live-intervals kernel math namespaces
+prettyprint sequences strings ;
 IN: compiler.cfg.linear-scan.debugger
 
 : check-linear-scan ( live-intervals machine-registers -- )
     [
         [ clone ] map dup [ [ vreg>> ] keep ] H{ } map>assoc
         live-intervals set
-        f
     ] dip
     allocate-registers drop ;