mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
10 lines
No EOL
297 B
Scheme
10 lines
No EOL
297 B
Scheme
|
|
(define (alist-cons key value ls) (cons (cons key value) ls))
|
|
|
|
(define (alist-copy ls) (map (lambda (x) (cons (car x) (cdr x))) ls))
|
|
|
|
(define (alist-delete key ls . o)
|
|
(let ((eq (if (pair? o) (car o) equal?)))
|
|
(remove (lambda (x) (eq (car x) key)) ls)))
|
|
|
|
(define alist-delete! alist-delete) |