/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.303 by mdj, Tue Mar 11 19:57:36 2003 UTC revision 1.304 by mdj, Tue Mar 11 20:11:20 2003 UTC
# Line 2809  Line 2809 
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)
# Line 2818  Line 2818 
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)
# Line 2840  Line 2840 
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)

Legend:
Removed from v.1.303  
changed lines
  Added in v.1.304

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26