~ chicken-r7rs (master) /scheme.case-lambda.scm

1(module scheme.case-lambda (case-lambda)
2  (import (only scheme >= car cdr eq? length)
3          (only chicken.base case-lambda)))