Revert "Revert "urls: only create linked-hash if query is f." (#1513)"

This reverts commit 89d4f511f8b32a4d5928125ec6894856d41ded2e.

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index c702ed4e3f09664746e31a615970bcd3045e3ccd..858f4a57c94d36ab405c41024ecd9a3f6aaa49a8 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -17,7 +17,7 @@ TUPLE: url protocol username password host port path query anchor ;
     pick [ set-at ] [ delete-at drop ] if ;
 
 : set-query-param ( url value key -- url )
-    pick query>> <linked-hash> or [ set-or-delete ] keep >>query ;
+    pick query>> [ <linked-hash> ] unless* [ set-or-delete ] keep >>query ;
 
 ERROR: malformed-port ;