alist getter-utility

alist-getter.scm

(use srfi-1)

(define (assoc-get getter key alist =)
  (cond
    ((assoc key alist =) => getter)
    (else #f)))

(define (assq-get g k l) (assoc-get g k l eq?))
(define (assv-get g k l) (assoc-get g k l eqv?))

; ex.
(let ((alist '((name "john")
               (age 20))))
  (assq-get cadr 'name alist)
  ; ==> "john"
  (assq-get car+cdr 'age alist)
  ; ==> [age, (20)]
  (assq-get cdr 'name alist)
  ; ==> ("john")
  )