(require-extension coops)

(define (bar)
  (print "bar v1"))

(bar)

(define (bar)
  (print "bar v2"))

(bar)


(define-class <a> ())

(define b (make <a>))

(define-method (foo (c <a>))
  (print "foo v1 on " c))

;(foo b) <-- don't call foo

(define-method (foo (c <a>))
  (print "foo v2 on " c))

(foo b)

;; Output:
;; bar v1
;; bar v2
;; foo v2 on #<coops instance of `<a>'>