Added a rule to generate comments for *COMMENT* tags.

2003-03-14 12:58:12 +00:00 · 2003-03-14 12:58:12 +00:00 · 573e980f33
parent 3511a9bffc
commit 573e980f33
1 changed files with 8 additions and 0 deletions
--- 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)
+                   `("<!-- "
+                     ,@elems
+                     "-->"))))
+
 (define default-rules
 `(,attribute-rule
   ,default-rule
   ,text-rule
+   ,comment-rule
   ,url-rule
   ,plain-html-rule))