(display
(let ((file-contents
(call-with-input-file "dirindex.html"
- (lambda (in)
+ (lambda (in)
(read-string (file-size "dirindex.html") in))))
(curdir
(r-s #f
"""]]
----
-
- [[CategoryCodeSnippets|CategoryCodeSnippets]]
+ [[!tag CategoryCodeSnippets]]