cl:remove-if   scheme


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

Implementation

(define (cl:remove-if pred? lst)
  (let remove-if ((lst lst)
      (result '()))
    (cond ((null? lst) (reverse result))
    ((pred? (car lst)) (remove-if (cdr lst) result))
    (else (remove-if (cdr lst) (cons (car lst) result))))))
;@


Back to Index

Similar Entries

  • cl:remove-if-not    scheme