"\n\n"
(if (pair? (node-children node))
(texi-menu
- (map (lambda (x) (menu-entry x))
- (node-children node)))
+ (map menu-entry (node-children node)))
""))
port)
(for-each (lambda (x) (dump-node x port (+ 1 level)))
"\n* GNU " name ": (" file-name "). " name "."
"\n@end direntry\n"
"@documentlanguage en\n"
- "@documentencoding utf-8\n"))
+ "@documentencoding UTF-8\n"))
(define (context-name name)
name)