mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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

4
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
@ -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)