compiler.cfg.linear-scan.resolve: use if-empty.

2014-12-11 14:00:50 -08:00 · 2014-12-11 14:00:50 -08:00 · c3a4bdcf68
parent 068ddd6c7b
commit c3a4bdcf68
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/cfg/linear-scan/resolve/resolve.factor
+++ b/basis/compiler/cfg/linear-scan/resolve/resolve.factor
@ -93,10 +93,10 @@ SYMBOL: temp-locations
    ] { } make ;

 : perform-mappings ( bb to mappings -- )
-    dup empty? [ 3drop ] [
+    [ 2drop ] [
        mapping-instructions insert-basic-block
        cfg get cfg-changed
-    ] if ;
+    ] if-empty ;

 : resolve-edge-data-flow ( bb to -- )
    2dup compute-mappings perform-mappings ;