[Chicken-janitors] #867: coops: metods returning multiple values don't work

[Chicken Trac]

#867: coops: metods returning multiple values don't work
------------------------+---------------------------------------------------
 Reporter:  megane      |       Owner:       
     Type:  defect      |      Status:  new  
 Priority:  minor       |   Milestone:  4.9.0
Component:  extensions  |     Version:  4.7.x
 Keywords:              |  
------------------------+---------------------------------------------------
 {{{
 (require-extension coops)

 (define-class <a> ())

 (define (foo a)
   (values 1 2))

 (define-method (bar (a <a>))
   (values 1 2))

 (define-method (baz (a <a>))
   (bar a))

 (receive (i j) (foo (make <a>))
          (print i j))

 (receive (i j) (bar (make <a>))
          (print i j))

 ;; Output both compiled and interpreted:
 ;; 12

 ;; Error: bad argument count - received 1 but expected 2: #<procedure (? i
 j)>

 }}}

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