;; macro to dispatch on # of returned values
(define-syntax values-case
  (syntax-rules ()
    ((values-case expr (formals . body) ...)
     (call-with-values (lambda () expr)
       (case-lambda (formals . body) ...)))))