http: only parse expires if non-empty.

diff --git a/basis/http/http.factor b/basis/http/http.factor
index 0631b6c67f6c8195ae1c6c5bc6393da06e4e8e9c..07d2b4eba5c1ca1816d1f8962050c3201d60b215 100644 (file)
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@@ -57,7 +57,7 @@ TUPLE: cookie name value version comment path domain expires max-age http-only s
             swap {
                 { "version" [ >>version ] }
                 { "comment" [ >>comment ] }
-                { "expires" [ cookie-string>timestamp >>expires ] }
+                { "expires" [ [ cookie-string>timestamp >>expires ] unless-empty ] }
                 { "max-age" [ string>number seconds >>max-age ] }
                 { "domain" [ >>domain ] }
                 { "path" [ >>path ] }