From 6d21a5a0731e6d5f0396673c5f7966434640a5c5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 19 Nov 2015 08:50:30 -0800
Subject: [PATCH] urls: only create linked-hash if query is f.

---
 basis/urls/urls.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 2f1c3e1fa3..f50e3ee9e0 100644
--- 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 ;