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

This reverts commit 89d4f511f8.
2016-11-20 05:09:13 +01:00 · 2016-11-20 05:09:13 +01:00 · 2a21052950
parent 0f989321b7
commit 2a21052950
1 changed files with 1 additions and 1 deletions
--- 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 ;