aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/info.scm16
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)))