diff options
| author |  Arthur A. Gleckler
| 2022-09-21 22:01:51 -0700 |
|---|---|---|
| committer | Arthur A. Gleckler
| 2022-09-21 22:01:51 -0700 |
| commit | 104d587eaeb72cb04babbbbff77d24ac7f51b1cf (patch) | |
| tree | 633793c2795b028674e75bcca9caed1ad4db77ce /srfi/225/default-impl.sld | |
| parent | Merge remote-tracking branch 'johnwcowan/master' (diff) | |
Eliminate use of double exclamation points.
Diffstat (limited to 'srfi/225/default-impl.sld')
| -rw-r--r-- | srfi/225/default-impl.sld | 14 |
1 files changed, 7 insertions, 7 deletions
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 |