let-values should accept symbol as name of the binding

[jcubic]

This doesn't work:

(let-values ((res (values 'a 'b 'c))) res)

But it's expected to return a list.

This is code for let-values:

(define-syntax let-values
  (syntax-rules ()
    ((_ ()) nil)
    ((_ () body ...) (begin body ...))
    ((_ (((x ...) values) ...) body ...)
     (apply (lambda (x ... ...)
              body ...)
            (vector->list (apply vector-append (map (lambda (arg) ((. arg "valueOf")))
                                                     (list values ...)))))))
  "(let-values binding body ...)

   The macro work similar to let but variable is list of values and value
   need to evaluate to result of calling values.")