diff options
| author |  Arvydas Silanskas
| 2021-08-22 20:54:14 +0300 |
|---|---|---|
| committer | Arvydas Silanskas
| 2021-08-22 20:54:14 +0300 |
| commit | e943ef133b857839bd5d9cdc2197fe7f03a09349 (patch) | |
| tree | ad0cc4ddd3ddd9d237f25f6e9f68bcbbd9049dd1 /srfi/alist-impl.scm | |
| parent | clean up (diff) | |
| parent | typo, -comparator can return #f (diff) | |
merge, add unfold
Diffstat (limited to 'srfi/alist-impl.scm')
| -rw-r--r-- | srfi/alist-impl.scm | 31 |
1 files changed, 14 insertions, 17 deletions
diff --git a/srfi/alist-impl.scm b/srfi/alist-impl.scm index e64dc97..59fac7b 100644 --- a/srfi/alist-impl.scm +++ b/srfi/alist-impl.scm @@ -106,25 +106,22 @@ (alist-copy dtd alist)) (define (alist-comparator dtd dictionary) - (make-comparator (lambda args #t) - key= - #f - #f)) + #f) (make-dtd - make-dictionary-index make-alist - dictionary?-index alist? - dict-map-index alist-map - dict-map!-index alist-map! - dict-filter-index alist-filter - dict-filter!-index alist-filter! - dict-search-index alist-search - dict-search!-index alist-search! - dict-size-index alist-size - dict-for-each-index alist-foreach - dict->alist-index alist->alist - dict-comparator-index alist-comparator - dict-copy-index alist-copy)) + make-dictionary-id make-alist + dictionary?-id alist? + dict-map-id alist-map + dict-map!-id alist-map! + dict-filter-id alist-filter + dict-filter!-id alist-filter! + dict-search-id alist-search + dict-search!-id alist-search! + dict-size-id alist-size + dict-for-each-id alist-foreach + dict->alist-id alist->alist + dict-comparator-id alist-comparator + dict-copy-id alist-copy)) (define alist-eqv-dtd (make-alist-dtd eqv?)) (define alist-equal-dtd (make-alist-dtd equal?)) |