Eliminate use of double exclamation points.

12 files changed, 47 insertions, 47 deletions

diff --git a/srfi-225-test.scm b/srfi-225-test.scm
index 66307dd..478b431 100644
--- a/srfi-225-test.scm
+++ b/srfi-225-test.scm
@@ -197,18 +197,18 @@
   (when mutable?
     (test-skip 1))
   (test-group
-   "dict-delete!-all!"
+   "dict-delete-all!"
    (define dict-original (alist->dict '((a . b) (c . d))))
-   (define d (dict-delete!-all! dto dict-original '(a b)))
+   (define d (dict-delete-all! dto dict-original '(a b)))
    (test-equal (dict->alist dto d) '((c . d)))
    (test-equal 'b (dict-ref dto dict-original 'a)))
 
   (unless mutable?
     (test-skip 1))
   (test-group
-   "dict-delete!-all!"
+   "dict-delete-all!"
    (define d (alist->dict '((a . b) (c . d))))
-   (dict-delete!-all! dto d '(a b))
+   (dict-delete-all! dto d '(a b))
    (test-equal (dict->alist dto d) '((c . d))))
 
   (when mutable?
@@ -320,11 +320,11 @@
   (when mutable?
     (test-skip 1))
   (test-group
-   "dict-update!/default!"
+   "dict-update/default!"
    ;; update existing
    (define dict-original (alist->dict '((a . "b"))))
    (let ()
-     (define d (dict-update!/default! dto dict-original 'a
+     (define d (dict-update/default! dto dict-original 'a
                                     (lambda (value)
                                       (string-append value "2"))
                                     "d1"))
@@ -333,7 +333,7 @@
 
    ;; update missing
    (let ()
-     (define d (dict-update!/default! dto dict-original 'c
+     (define d (dict-update/default! dto dict-original 'c
                                     (lambda (value)
                                       (string-append value "2"))
                                     "d1"))
@@ -343,11 +343,11 @@
   (unless mutable?
     (test-skip 1))
   (test-group
-   "dict-update!/default!"
+   "dict-update/default!"
    ;; update existing
    (let ()
     (define d (alist->dict '((a . "b"))))
-    (dict-update!/default! dto d 'a
+    (dict-update/default! dto d 'a
                           (lambda (value)
                             (string-append value "2"))
                           "d1")
@@ -356,7 +356,7 @@
    ;; update missing
    (let ()
     (define d (alist->dict '((a . "b"))))
-    (dict-update!/default! dto d 'c
+    (dict-update/default! dto d 'c
                           (lambda (value)
                             (string-append value "2"))
                           "d1")
diff --git a/srfi-225.html b/srfi-225.html
index 2d4f504..b68dc05 100644
--- a/srfi-225.html
+++ b/srfi-225.html
@@ -172,9 +172,9 @@ it depends on the dictionary whether any mutation is done.</p>
   ((5 . 6))
 (dict-delete! dto dict 5) &rArr;
   ((1 . 2) (3 . 4))</pre></blockquote>
-<p><code>(dict-delete!-all!</code>&nbsp;<em>dto dict keylist</em><code>)</code></p>
+<p><code>(dict-delete-all!</code>&nbsp;<em>dto dict keylist</em><code>)</code></p>
 <p>The same as <code>dict-delete!</code>, except that the keys to be deleted are in the list <em>keylist</em>.</p>
-<blockquote><pre>(dict-delete!-all! dto dict '(1 3)) &rArr; ((5 . 6))</pre></blockquote>
+<blockquote><pre>(dict-delete-all! dto dict '(1 3)) &rArr; ((5 . 6))</pre></blockquote>
 <p><code>(dict-replace!</code>&nbsp;<em>dto dict key value</em><code>)</code></p>
 <p>Returns a dictionary that contains all the associations of <em>dict</em> except as follows:
 If <em>key</em> is the same as a key of <em>dict</em>,
@@ -203,14 +203,14 @@ Otherwise, returns two values, a dictionary that contains
 (dict-update! dto dict 2 (lambda (x) (+ 1 x))) &rArr;
   <em>error</em>
 </pre></blockquote>
-<p><code>(dict-update!/default!</code>&nbsp;<em>dto dict key updater default</em><code>)</code></p>
+<p><code>(dict-update/default!</code>&nbsp;<em>dto dict key updater default</em><code>)</code></p>
 <p>Retrieves the value of <em>key</em> as if by <code>dict-ref/default</code>, invokes <em>updater</em> on it,
   and sets the value of <em>key</em> to be the result of calling <em>updater</em> as if by <code>dict-set!</code>,
   but may do so more efficiently. Returns the updated dictionary.</p>
 <blockquote><pre>
-(dict-update!/default! dto dict 1 (lambda (x) (+ 1 x)) 0) &rArr;
+(dict-update/default! dto dict 1 (lambda (x) (+ 1 x)) 0) &rArr;
   ((1 . 3) (3 . 4) (5 . 6))
-(dict-update!/default! dto dict 2 (lambda (x) (+ 1 x)) 0) &rArr;
+(dict-update/default! dto dict 2 (lambda (x) (+ 1 x)) 0) &rArr;
   ((2 . 1) (3 . 4) (5 . 6))
 </pre></blockquote>
 <p><code>(dict-pop!</code>&nbsp;<em>dto dict</em><code>)</code></p>
@@ -393,7 +393,7 @@ The following proc-id variables and associated procedures need to be provided
 <li><code>dict-any-id</code></li>
 <li><code>dict-contains?-id</code></li>
 <li><code>dict-count-id</code></li>
-<li><code>dict-delete!-all!-id</code></li>
+<li><code>dict-delete-all!-id</code></li>
 <li><code>dict-delete!-id</code></li>
 <li><code>dict-empty?-id</code></li>
 <li><code>dict-entries-id</code></li>
@@ -413,7 +413,7 @@ The following proc-id variables and associated procedures need to be provided
 <li><code>dict-set!-accumulator-id</code></li>
 <li><code>dict-set!-id</code></li>
 <li><code>dict-update!-id</code></li>
-<li><code>dict-update!/default!-id</code></li>
+<li><code>dict-update/default!-id</code></li>
 <li><code>dict-values-id</code></li>
 <li><code>dict=?-id</code></li>
 <li><code>dict-&gt;generator-id</code></li>
@@ -475,9 +475,9 @@ new dictionary types that may not have complete dictionary APIs:</p>
     <dd><code>dict-find-update!</code></dd>
 
     <dt><code>dict-delete!</code></dt>
-    <dd><code>dict-delete!-all!</code></dd>
+    <dd><code>dict-delete-all!</code></dd>
 
-    <dt><code>dict-delete!-all!</code></dt>
+    <dt><code>dict-delete-all!</code></dt>
     <dd><code>dict-find-update!</code></dd>
 
     <dt><code>dict-replace!</code></dt>
@@ -489,18 +489,18 @@ new dictionary types that may not have complete dictionary APIs:</p>
     <dt><code>dict-update!</code></dt>
     <dd><code>dict-find-update!</code></dd>
 
-    <dt><code>dict-update!/default!</code></dt>
+    <dt><code>dict-update/default!</code></dt>
     <dd><code>dict-update!</code></dd>
 
     <dt><code>dict-pop!</code></dt>
     <dd><code>dict-for-each</code></dd>
-    <dd><code>dict-delete!-all!</code></dd>
+    <dd><code>dict-delete-all!</code></dd>
     <dd><code>dict-empty?</code></dd>
 
     <dt><code>dict-filter</code></dt>
     <dd><code>dict-keys</code></dd>
     <dd><code>dict-ref</code></dd>
-    <dd><code>dict-delete!-all!</code></dd>
+    <dd><code>dict-delete-all!</code></dd>
 
     <dt><code>dict-remove</code></dt>
     <dd><code>dict-filter</code></dd>
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)