From 7d2ca36fad5a362891bc6ecfa32a15cb329ca9b0 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 3 Dec 2008 19:13:18 -0600
Subject: [PATCH] swap 3append -> glue

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

diff --git a/basis/http/http.factor b/basis/http/http.factor
index c90a1872ce..d006c86462 100644
--- 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 ;