diff options
| author |  John Cowan
| 2022-03-15 15:32:54 -0400 |
|---|---|---|
| committer |  GitHub
| 2022-03-15 15:32:54 -0400 |
| commit | a7f2c6a51139c210e4d62ab1447830cc525de21a (patch) | |
| tree | 2c15cebeda8c756bb9139a4cd3ef786266c02604 /srfi/alist-impl.scm | |
| parent | Update srfi-225.html (diff) | |
| parent | fix srfi 125 implementation (diff) | |
Merge pull request #3 from arvyy/master
Implementation update
Diffstat (limited to 'srfi/alist-impl.scm')
| -rw-r--r-- | srfi/alist-impl.scm | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/srfi/alist-impl.scm b/srfi/alist-impl.scm index 19d42b6..80b449d 100644 --- a/srfi/alist-impl.scm +++ b/srfi/alist-impl.scm @@ -5,8 +5,8 @@ (or (null? l) (pair? (car l))))) - (define (alist-mutable? dto alist) - #f) + (define (alist-pure? dto alist) + #t) (define (alist-map dto proc alist) (map @@ -62,11 +62,6 @@ (define (alist-size dto alist) (length alist)) - (define (alist-foreach dto proc alist) - (define (proc* e) - (proc (car e) (cdr e))) - (for-each proc* alist)) - (define (alist->alist dto alist) alist) @@ -75,12 +70,11 @@ (make-dto dictionary?-id alist? - dict-mutable?-id alist-mutable? + dict-pure?-id alist-pure? dict-map-id alist-map dict-filter-id alist-filter dict-find-update-id alist-find-update dict-size-id alist-size - dict-for-each-id alist-foreach dict->alist-id alist->alist dict-comparator-id alist-comparator)) |