cl:delete-if-not   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define (cl:delete-if-not pred lst)
  (let delete-if ((lst lst))
    (cond ((null? lst) '())
    ((not (pred (car lst))) (delete-if (cdr lst)))
    (else
     (set-cdr! lst (delete-if (cdr lst)))
     lst))))


Back to Index