cl:delete-if   scheme


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

Implementation

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


Back to Index

Similar Entries