get-true-matches   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/pattern.xtm

Implementation

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


Back to Index