factor: use more ?if

[factor.git] / basis / furnace / utilities / utilities.factor

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index 35544ae67e66ac4185eaaac5684cf747791a5b42..5202a83a91d8fb6604534838d524e1e9422958b1 100644 (file)
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -30,9 +30,10 @@ ERROR: no-such-word name vocab ;
 ERROR: no-such-responder responder ;
 
 : base-path ( string -- seq )
-    dup responder-nesting get
-    [ second class-of superclasses-of [ name>> = ] with any? ] with find nip
-    [ first ] [ no-such-responder ] ?if-old ;
+    [
+        responder-nesting get
+        [ second class-of superclasses-of [ name>> = ] with any? ] with find nip
+    ] [ first ] [ no-such-responder ] ?if ;
 
 : resolve-base-path ( string -- string' )
     "$" ?head [