(module-map
(lambda (sym var)
(let ((val (variable-ref var))
+ ;;(val (if (variable-bound? var) (variable-ref var) '""))
(tex-key (symbol->string sym)))
(if (memq sym fields)
(define-public (tex-output-expression expr port)
(display (eval expr this-module) port ))
-
-(define (make-title port) "")