diff options
| author |  John Cowan
| 2021-11-23 14:21:56 -0500 |
|---|---|---|
| committer | John Cowan
| 2021-11-23 14:21:56 -0500 |
| commit | a6fbdb2cfe97b41c4479170d80934f218a1553a8 (patch) | |
| tree | b538484cf28d6b09b0cf021529302fc6b4273697 /srfi/srfi-146-hash-impl.scm | |
| parent | improved rationale (diff) | |
dto and find-update
Diffstat (limited to 'srfi/srfi-146-hash-impl.scm')
| -rw-r--r-- | srfi/srfi-146-hash-impl.scm | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/srfi/srfi-146-hash-impl.scm b/srfi/srfi-146-hash-impl.scm index fb8497e..822fe7f 100644 --- a/srfi/srfi-146-hash-impl.scm +++ b/srfi/srfi-146-hash-impl.scm @@ -1,11 +1,11 @@ -(define hash-mapping-dtd +(define hash-mapping-dto (let () - (define (prep-dtd-arg proc) - (lambda (dtd . args) + (define (prep-dto-arg proc) + (lambda (dto . args) (apply proc args))) - (define (hashmap-alter* dtd dict key failure success) + (define (hashmap-find-update* dto dict key failure success) (call/cc ;; escape from whole hashmap-search entirely, when success / failure ;; return something other than through passed in continuation procedures @@ -36,32 +36,32 @@ (k result)))))) new-dict))) - (make-dtd - dictionary?-id (prep-dtd-arg hashmap?) + (make-dto + dictionary?-id (prep-dto-arg hashmap?) dict-mutable?-id (lambda _ #f) - dict-empty?-id (prep-dtd-arg hashmap-empty?) - dict-contains?-id (prep-dtd-arg hashmap-contains?) - dict-ref-id (prep-dtd-arg hashmap-ref) - dict-ref/default-id (prep-dtd-arg hashmap-ref/default) - dict-set-id (prep-dtd-arg hashmap-set) - dict-adjoin-id (prep-dtd-arg hashmap-adjoin) - dict-delete-id (prep-dtd-arg hashmap-delete) - dict-delete-all-id (prep-dtd-arg hashmap-delete-all) - dict-replace-id (prep-dtd-arg hashmap-replace) - dict-intern-id (prep-dtd-arg hashmap-intern) - dict-update-id (prep-dtd-arg hashmap-update) - dict-update/default-id (prep-dtd-arg hashmap-update/default) - dict-pop-id (prep-dtd-arg hashmap-pop) - dict-filter-id (prep-dtd-arg hashmap-filter) - dict-remove-id (prep-dtd-arg hashmap-remove) - dict-alter-id hashmap-alter* - dict-size-id (prep-dtd-arg hashmap-size) - dict-for-each-id (prep-dtd-arg hashmap-for-each) - dict-count-id (prep-dtd-arg hashmap-count) - dict-keys-id (prep-dtd-arg hashmap-keys) - dict-values-id (prep-dtd-arg hashmap-values) - dict-entries-id (prep-dtd-arg hashmap-entries) - dict-fold-id (prep-dtd-arg hashmap-fold) - dict-map->list-id (prep-dtd-arg hashmap-map->list) - dict->alist-id (prep-dtd-arg hashmap->alist) - dict-comparator-id (prep-dtd-arg hashmap-key-comparator)))) + dict-empty?-id (prep-dto-arg hashmap-empty?) + dict-contains?-id (prep-dto-arg hashmap-contains?) + dict-ref-id (prep-dto-arg hashmap-ref) + dict-ref/default-id (prep-dto-arg hashmap-ref/default) + dict-set-id (prep-dto-arg hashmap-set) + dict-adjoin-id (prep-dto-arg hashmap-adjoin) + dict-delete-id (prep-dto-arg hashmap-delete) + dict-delete-all-id (prep-dto-arg hashmap-delete-all) + dict-replace-id (prep-dto-arg hashmap-replace) + dict-intern-id (prep-dto-arg hashmap-intern) + dict-update-id (prep-dto-arg hashmap-update) + dict-update/default-id (prep-dto-arg hashmap-update/default) + dict-pop-id (prep-dto-arg hashmap-pop) + dict-filter-id (prep-dto-arg hashmap-filter) + dict-remove-id (prep-dto-arg hashmap-remove) + dict-find-update-id hashmap-find-update* + dict-size-id (prep-dto-arg hashmap-size) + dict-for-each-id (prep-dto-arg hashmap-for-each) + dict-count-id (prep-dto-arg hashmap-count) + dict-keys-id (prep-dto-arg hashmap-keys) + dict-values-id (prep-dto-arg hashmap-values) + dict-entries-id (prep-dto-arg hashmap-entries) + dict-fold-id (prep-dto-arg hashmap-fold) + dict-map->list-id (prep-dto-arg hashmap-map->list) + dict->alist-id (prep-dto-arg hashmap->alist) + dict-comparator-id (prep-dto-arg hashmap-key-comparator)))) |