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

[factor.git] / basis / channels / remote / remote.factor

diff --git a/basis/channels/remote/remote.factor b/basis/channels/remote/remote.factor
index 1b75def6cd5d3d8ebe716ab9f4dc6951d9868bfa..8b30a5236c6b5ffde5a9cf68679ee37133e90f25 100644 (file)
--- a/basis/channels/remote/remote.factor
+++ b/basis/channels/remote/remote.factor
@@ -34,7 +34,7 @@ TUPLE: from-message id ;
     [
         {
             { T{ to-message f ?id ?value  }
-            [ ?value ?id get-channel dup [ to f ] [ 2drop no-channel ] if ] }
+            [ ?value ?id get-channel [ to f ] [ drop no-channel ] if* ] }
             { T{ from-message f ?id }
             [ ?id get-channel [ from ] [ no-channel ] if* ] }
         } match-cond