dto and find-update

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))))