(define get-true-matches (lambda (lst) (foldl (let ((g #t)) (lambda (l x) (if (and (eqv? x #t) g) (cons x l) (begin (set! g #f) l)))) '() lst)))