From 573e980f33f331efe507db11101d2c04bc0a6f06 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 14 Mar 2003 12:58:12 +0000
Subject: [PATCH] Added a rule to generate comments for *COMMENT* tags.

---
 scheme/httpd/surflets/surflet-sxml.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

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)
+                   `("<!-- "
+                     ,@elems
+                     "-->"))))
+
 (define default-rules
  `(,attribute-rule
    ,default-rule
    ,text-rule
+   ,comment-rule
    ,url-rule
    ,plain-html-rule))