generic-assoc   scheme


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

Implementation

;;;; generic-assoc
(define (generic-assoc cmp obj alst)
  (cond
   ((null? alst) #f)
   ((cmp obj (caar alst)) (car alst))
   (else (generic-assoc cmp obj (cdr alst)))))


Back to Index