From c3a4bdcf68f63588231e5eebf061cb30a80f96d5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 11 Dec 2014 14:00:50 -0800
Subject: [PATCH] compiler.cfg.linear-scan.resolve: use if-empty.

---
 basis/compiler/cfg/linear-scan/resolve/resolve.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/linear-scan/resolve/resolve.factor b/basis/compiler/cfg/linear-scan/resolve/resolve.factor
index c52382c979..a4990a195e 100644
--- 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 ;