urls: only create linked-hash if query is f.

2015-11-19 08:50:30 -08:00 · 2015-11-19 08:50:30 -08:00 · 6d21a5a073
parent a3be724f5a
commit 6d21a5a073
1 changed files with 1 additions and 1 deletions
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@ -19,7 +19,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 ;