chickadee » moremacros » values-case

This is similar to case-lambda, but the lambda is selected based on the values cardinality of EXP.

(values-case 0
  ((a b) (equal? '(1 2) (list a b)))
  (r (length r)))
;=> 1
(values-case (values 1 2)
  ((a b) (equal? '(1 2) (list a b)))
  (r (length r)))
;=> #t