+(define (match-document? document filter)
+ "Try to match the given document with a list of conditions"
+ (cond ((null? filter)
+ #t)
+ (else
+ (and
+ (equal? (vhash-assoc (caar filter) document) (car filter))
+ (match-document? document (cdr filter))))))
+