coops: metods returning multiple values don't work

[megane]

(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)>

[megane]

possible patch

[megane]

That patch works on the test case, but breaks other stuff.

[megane]

Replying to megane:

That patch works on the test case, but breaks other stuff.

Forget that. Seems to work.

[felix winkelmann]

Thanks very much for the patch - fixed in coops 1.9.