Eliminate use of double exclamation points.

10 files changed, 25 insertions, 25 deletions

diff --git a/srfi/225/core-exports.scm b/srfi/225/core-exports.scm
index a3dab1d..27d6c82 100644
--- a/srfi/225/core-exports.scm
+++ b/srfi/225/core-exports.scm
@@ -15,11 +15,11 @@
     dict-set!
     dict-adjoin!
     dict-delete!
-    dict-delete!-all!
+    dict-delete-all!
     dict-replace!
     dict-intern!
     dict-update!
-    dict-update!/default!
+    dict-update/default!
     dict-pop!
     dict-map
     dict-filter
diff --git a/srfi/225/core-impl.scm b/srfi/225/core-impl.scm
index f65cd9e..ba4cba7 100644
--- a/srfi/225/core-impl.scm
+++ b/srfi/225/core-impl.scm
@@ -50,7 +50,7 @@
 (define/dict-proc dict-set! dict-set!-id)
 (define/dict-proc dict-adjoin! dict-adjoin!-id)
 (define/dict-proc dict-delete! dict-delete!-id)
-(define/dict-proc dict-delete!-all! dict-delete!-all!-id)
+(define/dict-proc dict-delete-all! dict-delete-all!-id)
 (define/dict-proc dict-replace! dict-replace!-id)
 (define/dict-proc dict-intern! dict-intern!-id)
 
@@ -68,7 +68,7 @@
      (assume (dto? dto))
      ((dto-ref-stx dto dict-update!-id) dto dict key updater failure success))))
 
-(define/dict-proc dict-update!/default! dict-update!/default!-id)
+(define/dict-proc dict-update/default! dict-update/default!-id)
 (define/dict-proc dict-pop! dict-pop!-id)
 (define/dict-proc dict-map dict-map-id)
 (define/dict-proc dict-filter dict-filter-id)
diff --git a/srfi/225/default-impl.sld b/srfi/225/default-impl.sld
index 58960a3..b3a6972 100644
--- a/srfi/225/default-impl.sld
+++ b/srfi/225/default-impl.sld
@@ -82,9 +82,9 @@
       (default-dict-set!* dto dictionary #t objs))
 
     (define (default-dict-delete! dto dictionary . keys)
-      (dict-delete!-all! dto dictionary keys))
+      (dict-delete-all! dto dictionary keys))
 
-    (define (default-dict-delete!-all! dto dictionary keylist)
+    (define (default-dict-delete-all! dto dictionary keylist)
       (let loop ((keylist keylist)
                  (d dictionary))
         (cond
@@ -120,7 +120,7 @@
                         (lambda (key value update _)
                           (update key (updater (success value))))))
 
-    (define (default-dict-update!/default! dto dictionary key updater default)
+    (define (default-dict-update/default! dto dictionary key updater default)
       (dict-update! dto dictionary key updater
                    (lambda () default)
                    (lambda (x) x)))
@@ -132,7 +132,7 @@
             (dict-for-each dto
                            (lambda (key value)
                              (define new-dict
-                               (dict-delete!-all! dto dictionary (list key)))
+                               (dict-delete-all! dto dictionary (list key)))
                              (cont new-dict key value))
                            dictionary))))
       (define empty? (dict-empty? dto dictionary))
@@ -149,7 +149,7 @@
           (lambda (key)
             (not (pred key (dict-ref dto dictionary key))))
           keys))
-      (dict-delete!-all! dto dictionary keys-to-delete))
+      (dict-delete-all! dto dictionary keys-to-delete))
 
     (define (default-dict-remove dto pred dictionary)
       (dict-filter dto (lambda (key value)
@@ -351,11 +351,11 @@
             dict-set!-id default-dict-set!
             dict-adjoin!-id default-dict-adjoin!
             dict-delete!-id default-dict-delete!
-            dict-delete!-all!-id default-dict-delete!-all!
+            dict-delete-all!-id default-dict-delete-all!
             dict-replace!-id default-dict-replace!
             dict-intern!-id default-dict-intern!
             dict-update!-id default-dict-update!
-            dict-update!/default!-id default-dict-update!/default!
+            dict-update/default!-id default-dict-update/default!
             dict-pop!-id default-dict-pop!
             dict-map-id default-dict-map
             dict-filter-id default-dict-filter
diff --git a/srfi/225/indexes-exports.scm b/srfi/225/indexes-exports.scm
index ff81ff3..224dd6e 100644
--- a/srfi/225/indexes-exports.scm
+++ b/srfi/225/indexes-exports.scm
@@ -15,7 +15,7 @@
     dict-any-id
     dict-contains?-id
     dict-count-id
-    dict-delete!-all!-id
+    dict-delete-all!-id
     dict-delete!-id
     dict-empty?-id
     dict-entries-id
@@ -35,7 +35,7 @@
     dict-set!-accumulator-id
     dict-set!-id
     dict-update!-id
-    dict-update!/default!-id
+    dict-update/default!-id
     dict-values-id
     dict=?-id
     dict->generator-id)
diff --git a/srfi/225/indexes.sld b/srfi/225/indexes.sld
index c1e1763..97218f4 100644
--- a/srfi/225/indexes.sld
+++ b/srfi/225/indexes.sld
@@ -19,11 +19,11 @@
     (define dict-set!-id (proc-id-inc))
     (define dict-adjoin!-id (proc-id-inc))
     (define dict-delete!-id (proc-id-inc))
-    (define dict-delete!-all!-id (proc-id-inc))
+    (define dict-delete-all!-id (proc-id-inc))
     (define dict-replace!-id (proc-id-inc))
     (define dict-intern!-id (proc-id-inc))
     (define dict-update!-id (proc-id-inc))
-    (define dict-update!/default!-id (proc-id-inc))
+    (define dict-update/default!-id (proc-id-inc))
     (define dict-pop!-id (proc-id-inc))
     (define dict-map-id (proc-id-inc))
     (define dict-filter-id (proc-id-inc))
diff --git a/srfi/225/srfi-125-impl.sld b/srfi/225/srfi-125-impl.sld
index a406fe0..56d5728 100644
--- a/srfi/225/srfi-125-impl.sld
+++ b/srfi/225/srfi-125-impl.sld
@@ -130,10 +130,10 @@
         dict-ref-id t125-hash-table-ref*
         dict-ref/default-id t125-hash-table-ref/default*
         dict-set!-id t125-hash-table-set*
-        dict-delete!-all!-id t125-hash-table-delete-all*
+        dict-delete-all!-id t125-hash-table-delete-all*
         dict-intern!-id t125-hash-table-intern*
         dict-update!-id t125-hash-table-update*
-        dict-update!/default!-id t125-hash-table-update/default*
+        dict-update/default!-id t125-hash-table-update/default*
         dict-pop!-id t125-hash-table-pop*
         dict-map-id t125-hash-table-map*
         dict-filter-id t125-hash-table-filter*
diff --git a/srfi/225/srfi-126-impl.sld b/srfi/225/srfi-126-impl.sld
index 9b9fd74..b708845 100644
--- a/srfi/225/srfi-126-impl.sld
+++ b/srfi/225/srfi-126-impl.sld
@@ -119,9 +119,9 @@
         dict-ref-id t126-hashtable-ref*
         dict-ref/default-id t126-hashtable-ref/default*
         dict-set!-id t126-hashtable-set*
-        dict-delete!-all!-id t126-hashtable-delete-all*
+        dict-delete-all!-id t126-hashtable-delete-all*
         dict-intern!-id t126-hashtable-intern*
-        dict-update!/default!-id t126-hashtable-update/default*
+        dict-update/default!-id t126-hashtable-update/default*
         dict-pop!-id t126-hashtable-pop*
         dict-map-id t126-hashtable-update-all*
         dict-filter-id t126-hashtable-filter*
diff --git a/srfi/225/srfi-146-hash-impl.sld b/srfi/225/srfi-146-hash-impl.sld
index d29bffc..de6451d 100644
--- a/srfi/225/srfi-146-hash-impl.sld
+++ b/srfi/225/srfi-146-hash-impl.sld
@@ -59,11 +59,11 @@
         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-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-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)
diff --git a/srfi/225/srfi-146-impl.sld b/srfi/225/srfi-146-impl.sld
index bb7824b..0d1c49c 100644
--- a/srfi/225/srfi-146-impl.sld
+++ b/srfi/225/srfi-146-impl.sld
@@ -60,11 +60,11 @@
         dict-set!-id (prep-dto-arg mapping-set)
         dict-adjoin!-id (prep-dto-arg mapping-adjoin)
         dict-delete!-id (prep-dto-arg mapping-delete)
-        dict-delete!-all!-id (prep-dto-arg mapping-delete-all)
+        dict-delete-all!-id (prep-dto-arg mapping-delete-all)
         dict-replace!-id (prep-dto-arg mapping-replace)
         dict-intern!-id (prep-dto-arg mapping-intern)
         dict-update!-id (prep-dto-arg mapping-update)
-        dict-update!/default!-id (prep-dto-arg mapping-update/default)
+        dict-update/default!-id (prep-dto-arg mapping-update/default)
         dict-pop!-id (prep-dto-arg mapping-pop)
         dict-filter-id (prep-dto-arg mapping-filter)
         dict-remove-id (prep-dto-arg mapping-remove)
diff --git a/srfi/225/srfi-69-impl.sld b/srfi/225/srfi-69-impl.sld
index be4c6db..d695fdc 100644
--- a/srfi/225/srfi-69-impl.sld
+++ b/srfi/225/srfi-69-impl.sld
@@ -95,9 +95,9 @@
         dict-ref-id t69-hash-table-ref*
         dict-ref/default-id (prep-dto-arg t69-hash-table-ref/default)
         dict-set!-id t69-hash-table-set!*
-        dict-delete!-all!-id t69-hash-table-delete-all!*
+        dict-delete-all!-id t69-hash-table-delete-all!*
         dict-contains?-id (prep-dto-arg t69-hash-table-exists?)
-        dict-update!/default!-id t69-hash-table-update!/default*
+        dict-update/default!-id t69-hash-table-update!/default*
         dict-size-id (prep-dto-arg t69-hash-table-size)
         dict-keys-id (prep-dto-arg t69-hash-table-keys)
         dict-values-id (prep-dto-arg t69-hash-table-values)