diff options
| author | Ludovic Courtès | 2012-05-12 16:38:13 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-12 16:38:13 +0200 |
| commit | 8013a82d0968375396a8700dd8bb733bd2df4e8c (patch) | |
| tree | d321561166c1d2318599a4997d579208be2d0191 | |
| parent | d059ab197b4513dd7ef4f9c563bef739d361b034 (diff) | |
| download | skribilo-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.
| -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))) |