Move make to its own vocabulary, remove fry _ feature

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

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 299f3053718e9e6537fef7f636e692f5eeb433b0..92a05806b57f2acad6f33a8b9abaddb19d822662 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -105,7 +105,7 @@ TUPLE: url protocol username password host port path query anchor ;
     swap query>> at ;
 
 : set-query-param ( url value key -- url )
-    '[ , , _ ?set-at ] change-query ;
+    '[ [ , , ] dip ?set-at ] change-query ;
 
 : parse-host ( string -- host port )
     ":" split1 [ url-decode ] [