use ``if*`` instead of ``dup [ ] [ drop ] if``.

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

diff --git a/basis/furnace/scopes/scopes.factor b/basis/furnace/scopes/scopes.factor
index 4d005e8adc52be40d3be3c8240057fd75879ccbf..8606c5ae38191c68ad3e095cecb83dc8679f3cf7 100644 (file)
--- a/basis/furnace/scopes/scopes.factor
+++ b/basis/furnace/scopes/scopes.factor
@@ -20,7 +20,7 @@ scope f
     t >>changed? drop ;
 
 : scope-get ( key scope -- value )
-    dup [ namespace>> at ] [ 2drop f ] if ;
+    [ namespace>> at ] [ drop f ] if* ;
 
 : scope-set ( value key scope -- )
     [ namespace>> set-at ] [ scope-changed ] bi ;