generic-member   scheme


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

Implementation

;;;; generic-member
(define (generic-member cmp obj lst)
  (cond
   ((null? lst) #f)
   ((cmp obj (car lst)) lst)
   (else (generic-member cmp obj (cdr lst)))))


Back to Index