diff options
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 592e1fe..16e5b26 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -211,8 +211,7 @@ (print "-------------") (for-each (lambda (fn) (let ((label (markup-option fn :label)) - (note (markup-body fn)) - (id (markup-ident fn))) + (note (markup-body fn))) (output (list "*" label ": ") e) (output note e) (output-newline))) @@ -612,8 +611,7 @@ (markup-writer 'section info-engine :options '(:title :info-node :number :toc :file :env) :action (lambda (n e) - (let ((body (markup-body n)) - (title (markup-option n :title))) + (let ((body (markup-body n))) (output-newline) (output-flush *margin*) (let ((t (block-title n e))) @@ -633,8 +631,7 @@ (markup-writer 'subsection info-engine :options '(:title :info-node :number :toc :env :file) :action (lambda (n e) - (let ((body (markup-body n)) - (title (markup-option n :title))) + (let ((body (markup-body n))) (output-flush *margin*) (let ((t (block-title n e))) (receive (next prev top) @@ -650,8 +647,7 @@ (markup-writer 'subsubsection info-engine :options '(:title :info-node :number :toc :env :file) :action (lambda (n e) - (let ((body (markup-body n)) - (title (markup-option n :title))) + (let ((body (markup-body n))) (output-flush *margin*) (let ((t (block-title n e))) (receive (next prev top) @@ -676,9 +672,7 @@ (markup-writer 'chapter info-engine :options '(:title :number :file :toc :info-node :env) :action (lambda (n e) - (let ((body (markup-body n)) - (file (markup-option n :file)) - (title (markup-option n :title))) + (let ((body (markup-body n))) (output-newline) (output-flush *margin*) (let ((t (block-title n e))) |