summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/ChangeLog1
-rw-r--r--ice-9/boot-9.scm10
2 files changed, 8 insertions, 3 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index fac058494..e83e88abc 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -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
by lgh-error (fill-message etc.)
(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>
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index e70bb7e00..2d10ca1be 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -691,15 +691,19 @@
(substring message 2 len)
(cdr args)))
(else
- (display (substring message 0 2)
+ (display (substring message 0 1)
cep)
(fill-message
- (substring message 2 len)
+ (substring message 1 len)
args))))))))
(display "ERROR: " cep)
(display subr 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)
(force-output cep)
(apply throw 'abort key arg-list)))