From 2dbc57a120966ac4eccdc17b02844e3734269e8f Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Tue, 13 Dec 2016 18:31:02 +0300
Subject: [PATCH] Make sure URLs are cloned before using set-query-param on
 them

---
 extra/google/search/search.factor          | 2 +-
 extra/webapps/calculator/calculator.factor | 2 +-
 extra/webapps/mason/report/report.factor   | 2 +-
 extra/webapps/mason/utils/utils.factor     | 6 +++---
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/extra/google/search/search.factor b/extra/google/search/search.factor
index 4518b11480..2bf33e6c2e 100644
--- a/extra/google/search/search.factor
+++ b/extra/google/search/search.factor
@@ -10,7 +10,7 @@ IN: google.search
 <PRIVATE
 
 : search-url ( query -- url )
-    URL" http://ajax.googleapis.com/ajax/services/search/web"
+    URL" http://ajax.googleapis.com/ajax/services/search/web" clone
         "1.0" "v" set-query-param
         swap "q" set-query-param
         "8" "rsz" set-query-param
diff --git a/extra/webapps/calculator/calculator.factor b/extra/webapps/calculator/calculator.factor
index 402143b947..2d652feea1 100644
--- a/extra/webapps/calculator/calculator.factor
+++ b/extra/webapps/calculator/calculator.factor
@@ -22,7 +22,7 @@ TUPLE: calculator < dispatcher ;
             { "y" [ v-number ] }
         } validate-params
 
-        URL" $calculator" "x" value "y" value + "z" set-query-param
+        URL" $calculator" clone "x" value "y" value + "z" set-query-param
         <redirect>
     ] >>submit ;
 
diff --git a/extra/webapps/mason/report/report.factor b/extra/webapps/mason/report/report.factor
index a82fc30e8f..6c7454fe30 100644
--- a/extra/webapps/mason/report/report.factor
+++ b/extra/webapps/mason/report/report.factor
@@ -17,7 +17,7 @@ IN: webapps.mason.report
         [ build-report ] >>display ;
 
 : report-link ( builder -- xml )
-    [ URL" report" ] dip
+    [ URL" report" clone ] dip
     [ os>> "os" set-query-param ]
     [ cpu>> "cpu" set-query-param ] bi
     [XML <a href=<->>Latest build report</a> XML] ;
diff --git a/extra/webapps/mason/utils/utils.factor b/extra/webapps/mason/utils/utils.factor
index 1abadc4e73..6504b5f262 100644
--- a/extra/webapps/mason/utils/utils.factor
+++ b/extra/webapps/mason/utils/utils.factor
@@ -46,15 +46,15 @@ IN: webapps.mason.utils
     adjust-url ;
 
 : package-url ( builder -- url )
-    [ URL" http://builds.factorcode.org/package" ] dip
+    [ URL" http://builds.factorcode.org/package" clone ] dip
     platform-url ;
 
 : report-url ( builder -- url )
-    [ URL" http://builds.factorcode.org/report" ] dip
+    [ URL" http://builds.factorcode.org/report" clone ] dip
     platform-url ;
 
 : release-url ( builder -- url )
-    [ URL" http://builds.factorcode.org/release" ] dip
+    [ URL" http://builds.factorcode.org/release" clone ] dip
     platform-url ;
 
 : validate-secret ( -- )
-- 
2.34.1