case-lambda を短く実装

(define-macro (case-lambda . x)
  `(lambda args ((match-lambda ,@x) args)))

ごめんなさい。いやでも本当にこれは便利。