From a949b3f2c4572e5db8068d5cd47772997f919b66 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sat, 7 Sep 1996 21:49:23 +0000 Subject: [PATCH] (fill-message): bug fix and check that args is a list. --- ice-9/ChangeLog | 1 + ice-9/boot-9.scm | 10 +++++++--- 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 * 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 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)))