Lines Matching refs:alist
2 (library (slib alist)
51 (else (lambda (key alist)
52 (let l ((al alist))
63 (lambda (alist key)
64 (let ((pair (assofun key alist)))
81 (lambda (alist key val)
82 (let* ((pair (assofun key alist)))
84 alist)
85 (else (cons (cons key val) alist)))))))
98 (lambda (alist key)
99 (cond ((null? alist) alist)
100 ((pred key (caar alist)) (cdr alist))
101 ((null? (cdr alist)) alist)
102 ((pred key (caadr alist))
103 (set-cdr! alist (cddr alist)) alist)
105 (let l ((al (cdr alist)))
106 (cond ((null? (cdr al)) alist)
108 (set-cdr! al (cddr al)) alist)
115 (define (alist-map proc alist)
117 alist))
123 (define (alist-for-each proc alist)
124 (for-each (lambda (pair) (proc (car pair) (cdr pair))) alist))