- (alist-recurser recur-xpr base-xpr)syntax
anaphoric macro with internal symbols it, representing the current list, and go-on, representing traversal along cdrs. The result is a procedure, which recurs on its only list argument.
(define (alsome? ok?) (alist-recurser (or (ok? (car it)) (go-on)) #f)) ((alsome? odd?) '(2 4 6)) ; -> #f