Sorry, the macro definition relies on a few additional functions,
in particular on the (ice-9 match) and (srfi srfi-1) modules and
the following definitions:
(define (split-before criterion list)
(split-at list (or (list-index criterion list)
(length list))))
(define (equals? x) (lambda(y)(equal? x y)))