mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

texinfo fixes

Browse source 
* module/texinfo.scm (parser-error): Throw to 'parser-error, as ssax's
  input-parse does.
  (texi-command-depth): Fix docstring so as not to confuse emacs.
  (parse-table-args): Fix parser-error call to include port.
This commit is contained in:
Andy Wingo 2009-12-20 23:18:32 +01:00
parent c165c50d07
commit 05c29c5abc
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/texinfo.scm
View file

@ -88,7 +88,7 @@
;; Some utilities
(define (parser-error port message . rest)
(apply error port message rest))
(apply throw 'parser-error port message rest))
(define (call-with-file-and-dir filename proc)
"Call the one-argument procedure @var{proc} with an input port that
@ -377,11 +377,11 @@ lambda. Only present for @code{INLINE-ARGS}, @code{EOL-ARGS},
Examples:
@example
(texi-command-depth 'chapter 4) @result{} 1
(texi-command-depth 'top 4) @result{} 0
(texi-command-depth 'subsection 4) @result{} 3
(texi-command-depth 'appendixsubsec 4) @result{} 3
(texi-command-depth 'subsection 2) @result{} #f
(texi-command-depth 'chapter 4) @result{} 1
(texi-command-depth 'top 4) @result{} 0
(texi-command-depth 'subsection 4) @result{} 3
(texi-command-depth 'appendixsubsec 4) @result{} 3
(texi-command-depth 'subsection 2) @result{} #f
@end example"
(let ((depth (and=> (assq command command-depths) cdr)))
(and depth (<= depth max-depth) depth)))
@ -628,7 +628,7 @@ Examples:
(parser-error
port "@item formatter must be INLINE" f))
f))
(parser-error "Invalid @item formatter" line)))
(parser-error port "Invalid @item formatter" line)))
(case command
((enumerate)
(if (zero? length)