diff --git a/extra/http/http.factor b/extra/http/http.factor index 99a48e58d8..3402b42ca7 100755 --- a/extra/http/http.factor +++ b/extra/http/http.factor @@ -149,7 +149,7 @@ TUPLE: cookie name value path domain expires max-age http-only ; ";" split [ [ blank? ] trim "=" split1 swap >lower { { "expires" [ cookie-string>timestamp >>expires ] } - { "max-age" [ string>number seconds ] } + { "max-age" [ string>number seconds >>max-age ] } { "domain" [ >>domain ] } { "path" [ >>path ] } { "httponly" [ drop t >>http-only ] } diff --git a/extra/http/server/templating/chloe/chloe.factor b/extra/http/server/templating/chloe/chloe.factor index 622cfe900f..a8a456cdb2 100644 --- a/extra/http/server/templating/chloe/chloe.factor +++ b/extra/http/server/templating/chloe/chloe.factor @@ -22,7 +22,7 @@ DEFER: process-template : chloe-ns "http://factorcode.org/chloe/1.0" ; inline : filter-chloe-attrs ( assoc -- assoc' ) - [ drop name-url chloe-ns = not ] assoc-subset ; + [ drop name-url chloe-ns = not ] assoc-filter ; : chloe-tag? ( tag -- ? ) {