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

[factor.git] / basis / io / backend / unix / unix.factor

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
index 3a4c31565b5379b6fec6e860ccce86aef23803fd..2468c53e58addad7154f3ee3009e16dc27bcaab4 100755 (executable)
--- a/basis/io/backend/unix/unix.factor
+++ b/basis/io/backend/unix/unix.factor
@@ -124,7 +124,7 @@ M: fd drain
 M: unix (wait-to-write) ( port -- )
     dup
     dup handle>> check-disposed drain
-    dup [ wait-for-port ] [ 2drop ] if ;
+    [ wait-for-port ] [ drop ] if* ;
 
 M: unix io-multiplex ( nanos -- )
     mx get-global wait-for-events ;