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)))