From 0ad8cb57d7c6146356785b140d143eb7b8be269f Mon Sep 17 00:00:00 2001 From: Chris Double Date: Fri, 20 Aug 2004 00:02:01 +0000 Subject: [PATCH] workaround for native factor bug in processing lists --- contrib/cont-responder/cont-html.factor | 20 +++----------------- 1 file changed, 3 insertions(+), 17 deletions(-) diff --git a/contrib/cont-responder/cont-html.factor b/contrib/cont-responder/cont-html.factor index 038d5a467e..91abad6c11 100644 --- a/contrib/cont-responder/cont-html.factor +++ b/contrib/cont-responder/cont-html.factor @@ -194,25 +194,11 @@ USE: logic [ store-prev-attribute ] cons reverse [ "current-attribute" set ] append create-word ; ! Define some closed HTML tags -[ - "h1" "h2" "h3" "h4" "h5" "h6" "h7" "h8" "h9" - "ol" "li" "form" "a" "p" "html" "head" "body" "title" - "b" "i" "ul" "table" "tr" "td" "th" "pre" "textarea" - "script" "div" "span" "select" "option" -] [ define-closed-html-word ] each +[ "h1" "h2" "h3" "h4" "h5" "h6" "h7" "h8" "h9" "ol" "li" "form" "a" "p" "html" "head" "body" "title" "b" "i" "ul" "table" "tr" "td" "th" "pre" "textarea" "script" "div" "span" "select" "option" ] [ define-closed-html-word ] each ! Define some open HTML tags -[ - "input" - "br" - "link" -] [ define-open-html-word ] each +[ "input" "br" "link" ] [ define-open-html-word ] each ! Define some attributes [ - "method" "action" "type" "value" "name" - "size" "href" "class" "border" "rows" "cols" - "id" "onclick" "style" "valign" "accesskey" - "src" "language" "colspan" "onchange" "rel" - "width" -] [ define-attribute-word ] each \ No newline at end of file + "method" "action" "type" "value" "name" "size" "href" "class" "border" "rows" "cols" "id" "onclick" "style" "valign" "accesskey" "src" "language" "colspan" "onchange" "rel" "width"] [ define-attribute-word ] each