Make sure URLs are cloned before using set-query-param on them

diff --git a/extra/google/search/search.factor b/extra/google/search/search.factor
index 4518b114808dcfed03cf016b3b8a0adcc2c37809..2bf33e6c2e418ac61cf12757a238a19ff0b360a0 100644 (file)
--- 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 402143b947da5f3448ea946633c662b1c9968d96..2d652feea1ffa7d7eaa72a89985919ab9f8a587d 100644 (file)
--- 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 a82fc30e8f7061ad74794d8ed0f6ddf9c22e8c2b..6c7454fe3076691a03676732bcaaf66922f52392 100644 (file)
--- 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 1abadc4e7308dae0d14b1af3a59c073870c4012a..6504b5f262a81357bf512311c174587552e94df0 100644 (file)
--- 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 ( -- )