scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
mainzelm 2003-03-14 12:58:12 +00:00
parent 3511a9bffc
commit 573e980f33
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/surflets/surflet-sxml.scm
View File

@ -12,10 +12,18 @@
*preorder* *preorder*
. ,(lambda (tag . text) text))) . ,(lambda (tag . text) text)))
(define comment-rule
`(*COMMENT* *preorder*
. ,(lambda (tag . elems)
`("<!-- "
,@elems
"-->"))))
(define default-rules (define default-rules
`(,attribute-rule `(,attribute-rule
,default-rule ,default-rule
,text-rule ,text-rule
,comment-rule
,url-rule ,url-rule
,plain-html-rule)) ,plain-html-rule))