Opened 9 years ago

Closed 9 years ago

#867 closed defect (fixed)

coops: metods returning multiple values don't work

Reported by: megane Owned by: felix winkelmann
Priority: minor Milestone: 4.9.0
Component: extensions Version: 4.7.x
Keywords: Cc:
Estimated difficulty:

Description

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

Attachments (1)

patch867 (1022 bytes) - added by megane 9 years ago.
possible patch

Download all attachments as: .zip

Change History (5)

Changed 9 years ago by megane

Attachment: patch867 added

possible patch

comment:1 Changed 9 years ago by megane

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

comment:2 in reply to:  1 Changed 9 years ago by megane

Replying to megane:

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

Forget that. Seems to work.

comment:3 Changed 9 years ago by felix winkelmann

Owner: set to felix winkelmann
Status: newassigned

comment:4 Changed 9 years ago by felix winkelmann

Resolution: fixed
Status: assignedclosed

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

Note: See TracTickets for help on using tickets.