mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Adjustments of error messages

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-03-11 20:11:20 +00:00
parent c614a00b8c
commit 8dd18ceaf5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2809,7 +2809,7 @@
(define (check module name int1 val1 int2 val2 var val) (define (check module name int1 val1 int2 val2 var val)
(scm-error 'misc-error (scm-error 'misc-error
#f #f
"~A: ~A imported from ~A and ~A" "~A: `~A' imported from both ~A and ~A"
(list (module-name module) (list (module-name module)
name name
(module-name int1) (module-name int1)
@ -2818,7 +2818,7 @@
(define (warn module name int1 val1 int2 val2 var val) (define (warn module name int1 val1 int2 val2 var val)
(format #t (format #t
"~A: ~A imported from ~A and ~A\n" "~A: `~A' imported from both ~A and ~A\n"
(module-name module) (module-name module)
name name
(module-name int1) (module-name int1)
@ -2840,7 +2840,7 @@
(and (eq? int1 the-scm-module) (and (eq? int1 the-scm-module)
(begin (begin
(format #t (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 module)
(module-name int2) (module-name int2)
name) name)