diff --git a/scheme/httpd/surflets/surflet-sxml.scm b/scheme/httpd/surflets/surflet-sxml.scm index 3c26180..597ede2 100644 --- a/scheme/httpd/surflets/surflet-sxml.scm +++ b/scheme/httpd/surflets/surflet-sxml.scm @@ -12,10 +12,18 @@ *preorder* . ,(lambda (tag . text) text))) +(define comment-rule + `(*COMMENT* *preorder* + . ,(lambda (tag . elems) + `("")))) + (define default-rules `(,attribute-rule ,default-rule ,text-rule + ,comment-rule ,url-rule ,plain-html-rule))