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

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

diff --git a/basis/furnace/actions/actions.factor b/basis/furnace/actions/actions.factor
index 262a55e343dd478a3954f935367e3ddd47902ae2..e5720636ff470e42d228d3ee535a48a0cefa244e 100644 (file)
--- a/basis/furnace/actions/actions.factor
+++ b/basis/furnace/actions/actions.factor
@@ -84,7 +84,7 @@ CONSTANT: revalidate-url-key "__u"
     ] with-exit-continuation ;
 
 : handle-rest ( path action -- )
-    rest>> dup [ [ "/" join ] dip set-param ] [ 2drop ] if ;
+    rest>> [ [ "/" join ] dip set-param ] [ drop ] if* ;
 
 : init-action ( path action -- )
     begin-form