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

Example code:

```scheme
(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.