values as argument to function that use call-with-values

[jcubic]

Example code:

(define (foo vals)
  (call-with-values (lambda () vals) (lambda args (apply + args))))

(foo (values 1 2 3 4))

• Kawa, Gamibt, and my LIPS return 10
• Chicken, Guile returns 1

In the R7RS spec, it says that it's unspecified behavior to accept multiple values in continuations.

It may require more testing with more implementations.