;; First level Engraver description
(define (document-separate-engraver top description)
(let ((name (car description)))
+ (processing name)
(string-append
(node (engraver-name name))
(document-engraver 2 description))))
(define (document-context top context-desc)
(let ((name (cdr (assoc 'type-name context-desc)))
(doc (context-doc-string context-desc)))
-
+ (processing name)
(string-append
(node (context-name name))
(section 2 (context-name name))