(use coops)

(module
 m1
 *
 (import chicken scheme)
 (use coops)
 (define-class a1)
 (define (foo o)
   (print "1")))

(module
 m2
 *
 (import chicken scheme)
 (use coops)
 (import m1)
 (define-class a2)
 (define (foo o)
   (print "2")))

(import m1 m2)

(print (foo (make a2)))

Warning: redefinition of imported value binding: foo
2
#<unspecified>