2809 |
(define (check module name int1 val1 int2 val2 var val) |
(define (check module name int1 val1 int2 val2 var val) |
2810 |
(scm-error 'misc-error |
(scm-error 'misc-error |
2811 |
#f |
#f |
2812 |
"~A: ~A imported from ~A and ~A" |
"~A: `~A' imported from both ~A and ~A" |
2813 |
(list (module-name module) |
(list (module-name module) |
2814 |
name |
name |
2815 |
(module-name int1) |
(module-name int1) |
2818 |
|
|
2819 |
(define (warn module name int1 val1 int2 val2 var val) |
(define (warn module name int1 val1 int2 val2 var val) |
2820 |
(format #t |
(format #t |
2821 |
"~A: ~A imported from ~A and ~A\n" |
"~A: `~A' imported from both ~A and ~A\n" |
2822 |
(module-name module) |
(module-name module) |
2823 |
name |
name |
2824 |
(module-name int1) |
(module-name int1) |
2840 |
(and (eq? int1 the-scm-module) |
(and (eq? int1 the-scm-module) |
2841 |
(begin |
(begin |
2842 |
(format #t |
(format #t |
2843 |
"WARNING: ~A: imported module ~A overrides core binding ~A\n" |
"WARNING: ~A: imported module ~A overrides core binding `~A'\n" |
2844 |
(module-name module) |
(module-name module) |
2845 |
(module-name int2) |
(module-name int2) |
2846 |
name) |
name) |