;; This will become a compiletime error.
(receive (a b c) (values 1 2) (display (cons a b)))

(receive (a b) (let ((x 1) (a 2)) (values x a)) (cons a b))

(receive x (values 1 2 3) x)

(define (foo) (values 1 2))

(receive (a b) (foo) (cons a b))

(define (bar a v) (values a v 1))

;; This one will stay as a runtime error.
(receive (a b) (bar 2 3) (cons a b))

(receive (a b) (receive (a b c) (values 1 2 3) (values c (cons a b))) (vector b a))

(receive (a b) (receive (a b c)
		(bar 5 6)
		(values c (cons a b)))
     (vector b a))