factor: use ??if instead of ?if-old

[factor.git] / basis / urls / urls.factor

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 79cb7411bd70f484b4c9e31655153341192f08b1..543a5ff6c439a194b71722b5421c95c2058e1214 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -29,7 +29,7 @@ TUPLE: url protocol username password host port path query anchor ;
 ERROR: malformed-port string ;
 
 : parse-port ( string -- port/f )
-    [ f ] [ dup string>number [ ] [ malformed-port ] ?if ] if-empty ;
+    [ f ] [ [ string>number ] [ malformed-port ] ?unless ] if-empty ;
 
 : parse-host ( string -- host/f port/f )
     [