mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

(fill-message): bug fix and check that args is a list.

Browse source
This commit is contained in:
Gary Houston 1996-09-07 21:49:23 +00:00
parent 9561554c13
commit a949b3f2c4
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ice-9/ChangeLog
View file

@ -3,6 +3,7 @@ Sat Sep 7 06:44:47 1996 Gary Houston <ghouston@actrix.gen.nz>
* boot-9.scm (%%handle-system-error): recognise errors thrown * boot-9.scm (%%handle-system-error): recognise errors thrown
by lgh-error (fill-message etc.) by lgh-error (fill-message etc.)
(fill-message): check first whether args is null. (fill-message): check first whether args is null.
(fill-message): bug fix and check that args is a list.
Thu Sep 5 11:33:41 1996 Jim Blandy <jimb@floss.cyclic.com> Thu Sep 5 11:33:41 1996 Jim Blandy <jimb@floss.cyclic.com>

10
ice-9/boot-9.scm
View file

@ -691,15 +691,19 @@
(substring message 2 len) (substring message 2 len)
(cdr args))) (cdr args)))
(else (else
(display (substring message 0 2) (display (substring message 0 1)
cep) cep)
(fill-message (fill-message
(substring message 2 len) (substring message 1 len)
args)))))))) args))))))))
(display "ERROR: " cep) (display "ERROR: " cep)
(display subr cep) (display subr cep)
(display ": " cep) (display ": " cep)
(fill-message message args) (cond ((list? args)
(fill-message message args))
(else
(display message cep)
(display " (bad message args)" cep)))
(newline cep) (newline cep)
(force-output cep) (force-output cep)
(apply throw 'abort key arg-list))) (apply throw 'abort key arg-list)))