(use coops)

(module
 m1
 *
 (import chicken scheme)
 (use coops)
 (define-class a1 ()
   ((foo 1)))
 (define .foo (getter-with-setter
	       (lambda (o) (slot-value o 'foo))
	       (lambda (o v) (set! (slot-value o 'foo) v)))))

(module
 m2
 *
 (import chicken scheme)
 (use coops)
 (import m1)
 (define-class a2 ()
   ((foo 2)))
 (define .foo (getter-with-setter
	       (lambda (o) (slot-value o 'foo))
	       (lambda (o v) (set! (slot-value o 'foo) v)))))

(import m1 m2)

(print (.foo (make a2)))