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/plist-impl.scm | |
| parent | clean up (diff) | |
| parent | typo, -comparator can return #f (diff) | |
merge, add unfold
Diffstat (limited to 'srfi/plist-impl.scm')
| -rw-r--r-- | srfi/plist-impl.scm | 29 |
1 files changed, 13 insertions, 16 deletions
diff --git a/srfi/plist-impl.scm b/srfi/plist-impl.scm index dbec747..e283c8e 100644 --- a/srfi/plist-impl.scm +++ b/srfi/plist-impl.scm @@ -103,21 +103,18 @@ (loop (cddr pl)))))) (define (plist-comparator dtd plist) - (make-comparator symbol? - equal? - #f - #f)) + #f) (make-dtd - make-dictionary-index make-plist - dictionary?-index plist? - dict-map-index plist-map - dict-map!-index plist-map! - dict-filter-index plist-filter - dict-filter!-index plist-filter! - dict-search-index plist-search - dict-search!-index plist-search! - dict-copy-index plist-copy - dict-size-index plist-size - dict-for-each-index plist-foreach - dict-comparator-index plist-comparator))) + make-dictionary-id make-plist + dictionary?-id plist? + dict-map-id plist-map + dict-map!-id plist-map! + dict-filter-id plist-filter + dict-filter!-id plist-filter! + dict-search-id plist-search + dict-search!-id plist-search! + dict-copy-id plist-copy + dict-size-id plist-size + dict-for-each-id plist-foreach + dict-comparator-id plist-comparator))) |