swap 3append -> glue

diff --git a/basis/http/http.factor b/basis/http/http.factor
index c90a1872ce979068c24c2ab6d43369921caf906b..d006c86462c944f47680919cea2ed87cf5ba1191 100644 (file)
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@@ -111,7 +111,7 @@ TUPLE: cookie name value version comment path domain expires max-age http-only s
                 { [ dup real? ] [ number>string ] }
                 [ ]
             } cond
-            [ check-cookie-string ] bi@ "=" swap 3append ,
+            [ check-cookie-string ] bi@ "=" glue ,
         ]
     } case ;