From 8013a82d0968375396a8700dd8bb733bd2df4e8c Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 12 May 2012 16:38:13 +0200
Subject: info: Remove unused variables.

* src/guile/skribilo/engine/info.scm (document, section, subsection,
  subsubsection, chapter): Remove unused variables.
---
 src/guile/skribilo/engine/info.scm | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

(limited to 'src')

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)))
-- 
cgit v1.2.3