From 6f1e819e04d9633be074f0acce3181802a9907bf Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 30 Nov 2014 21:33:48 -0800
Subject: [PATCH] urls.encoding: more cleanup.

---
 basis/urls/encoding/encoding.factor | 27 +++++++++------------------
 1 file changed, 9 insertions(+), 18 deletions(-)

diff --git a/basis/urls/encoding/encoding.factor b/basis/urls/encoding/encoding.factor
index afe9e93e67..f9fa7e7c7b 100644
--- a/basis/urls/encoding/encoding.factor
+++ b/basis/urls/encoding/encoding.factor
@@ -80,24 +80,13 @@ PRIVATE>
 <PRIVATE
 
 : add-query-param ( value key assoc -- )
-    [
-        at [
-            {
-                { [ dup string? ] [ swap 2array ] }
-                { [ dup array? ] [ swap suffix ] }
-                { [ dup not ] [ drop ] }
-            } cond
-        ] when*
-    ] 2keep set-at ;
-
-: assoc-strings ( assoc -- assoc' )
     [
         {
-            { [ dup not ] [ ] }
-            { [ dup array? ] [ [ present ] map ] }
-            [ present 1array ]
+            { [ dup string? ] [ swap 2array ] }
+            { [ dup array? ] [ swap suffix ] }
+            { [ dup not ] [ drop ] }
         } cond
-    ] assoc-map ;
+    ] change-at ;
 
 PRIVATE>
 
@@ -113,8 +102,10 @@ PRIVATE>
 
 : assoc>query ( assoc -- str )
     [
-        assoc-strings [
-            [ url-encode-full ] dip
-            [ [ url-encode-full "=" glue , ] with each ] [ , ] if*
+        [
+            [ url-encode-full ] dip [
+                dup array? [ 1array ] unless
+                [ present url-encode-full "=" glue , ] with each
+            ] [ , ] if*
         ] assoc-each
     ] { } make "&" join ;