From 83cbe7c04fc9810c7bee10260451f6fac2c77ee5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 31 Jan 2009 23:11:07 -0600 Subject: [PATCH 1/2] Fix lint --- extra/lint/lint.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 From e089ce6df0d1195103e69a33482aaba0811327a6 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 1 Feb 2009 02:02:09 -0600 Subject: [PATCH 2/2] Fix http test --- basis/http/http-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 [ a get-global "a" set-value ] >>init - [ [ "a" render ] "text/html" ] >>display + [ [ "" write "a" render "" write ] "text/html" ] >>display [ { { "a" [ v-integer ] } } validate-params ] >>validate [ "a" value a set-global URL" " ] >>submit