From 8dd18ceaf50f5554b692ec0433c7b61db0ea0084 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 11 Mar 2003 20:11:20 +0000 Subject: [PATCH] Adjustments of error messages --- ice-9/boot-9.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 96cb250c2..50095a4ee 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2809,7 +2809,7 @@ (define (check module name int1 val1 int2 val2 var val) (scm-error 'misc-error #f - "~A: ~A imported from ~A and ~A" + "~A: `~A' imported from both ~A and ~A" (list (module-name module) name (module-name int1) @@ -2818,7 +2818,7 @@ (define (warn module name int1 val1 int2 val2 var val) (format #t - "~A: ~A imported from ~A and ~A\n" + "~A: `~A' imported from both ~A and ~A\n" (module-name module) name (module-name int1) @@ -2840,7 +2840,7 @@ (and (eq? int1 the-scm-module) (begin (format #t - "WARNING: ~A: imported module ~A overrides core binding ~A\n" + "WARNING: ~A: imported module ~A overrides core binding `~A'\n" (module-name module) (module-name int2) name)