summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-12 16:38:13 +0200
committerLudovic Courtès2012-05-12 16:38:13 +0200
commit8013a82d0968375396a8700dd8bb733bd2df4e8c (patch)
treed321561166c1d2318599a4997d579208be2d0191 /src
parentd059ab197b4513dd7ef4f9c563bef739d361b034 (diff)
downloadskribilo-8013a82d0968375396a8700dd8bb733bd2df4e8c.tar.gz
skribilo-8013a82d0968375396a8700dd8bb733bd2df4e8c.tar.lz
skribilo-8013a82d0968375396a8700dd8bb733bd2df4e8c.zip
info: Remove unused variables.
* src/guile/skribilo/engine/info.scm (document, section, subsection, subsubsection, chapter): Remove unused variables.
Diffstat (limited to 'src')
-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)))