Re: [Chicken-janitors] #846: coops: define-method does not redefine

[Chicken Trac]

#846: coops: define-method does not redefine
-------------------------+--------------------------------------------------
  Reporter:  megane      |       Owner:       
      Type:  defect      |      Status:  new  
  Priority:  major       |   Milestone:  4.8.0
 Component:  extensions  |     Version:  4.7.x
Resolution:              |    Keywords:       
-------------------------+--------------------------------------------------

Comment(by megane):

 Here's a small variation of last comment that doesn't work:

 (require-extension coops)

 (module cls
  *
  (import chicken scheme)
  (use coops)

  (define-class <a> ())

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

 (import cls)
 (define a (make <a>))

 (foo a)

 ;; foo v2
 (module modu
  *
  (import chicken scheme)
  (use coops)

  (import cls)

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

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

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/846#comment:2>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.