diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor index c4ea23ea0a..f593980467 100644 --- a/basis/http/http-tests.factor +++ b/basis/http/http-tests.factor @@ -308,7 +308,7 @@ SYMBOL: a <dispatcher> <action> [ a get-global "a" set-value ] >>init - [ [ "a" <field> render ] "text/html" <content> ] >>display + [ [ "<html>" write "a" <field> render "</html>" write ] "text/html" <content> ] >>display [ { { "a" [ v-integer ] } } validate-params ] >>validate [ "a" value a set-global URL" " <redirect> ] >>submit <conversations> diff --git a/extra/lint/lint.factor b/extra/lint/lint.factor index 60e3332ee4..849cc540a3 100755 --- a/extra/lint/lint.factor +++ b/extra/lint/lint.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2007, 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: accessors alien alien.accessors arrays assocs -combinators.short-circuit fry hashtables html io +combinators.short-circuit fry hashtables io kernel math namespaces prettyprint quotations sequences sequences.deep sets slots.private vectors vocabs words kernel.private ; @@ -54,7 +54,7 @@ SYMBOL: def-hash-keys [ drop f ] [ "cdecl" ] [ first ] [ second ] [ third ] [ fourth ] - [ ">" write-html ] [ "/>" write-html ] + [ ">" write ] [ "/>" write ] } ; ! ! Add definitions