diff options
| author |  Arthur A. Gleckler
| 2022-09-19 20:36:10 -0700 |
|---|---|---|
| committer | Arthur A. Gleckler
| 2022-09-19 20:36:10 -0700 |
| commit | a893afd4f6a7a515f555fd09b003a3e7ec7a310c (patch) | |
| tree | d0285391ecedae7b81a2b0a4da01880ebd363c01 /srfi/225 | |
| parent | Merge branch 'master' of github.com:johnwcowan/srfi-225 (diff) | |
Drop trailing whitespace.
Diffstat (limited to '')
| -rw-r--r-- | srfi/225.sld | 2 | ||||
| -rw-r--r-- | srfi/225/default-impl.sld | 2 | ||||
| -rw-r--r-- | srfi/225/srfi-146-impl.sld | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/srfi/225.sld b/srfi/225.sld index 84d17cf..4b6f021 100644 --- a/srfi/225.sld +++ b/srfi/225.sld @@ -1,7 +1,7 @@ (define-library (srfi 225) - (import + (import (scheme base) (srfi 1) (srfi 128) diff --git a/srfi/225/default-impl.sld b/srfi/225/default-impl.sld index 0c7d75c..c6d493c 100644 --- a/srfi/225/default-impl.sld +++ b/srfi/225/default-impl.sld @@ -254,7 +254,7 @@ (define (accept el) (and (upper el) (lower el))) - (dict-map + (dict-map dto (lambda (key value) (when (accept key) diff --git a/srfi/225/srfi-146-impl.sld b/srfi/225/srfi-146-impl.sld index d9577b4..163bf66 100644 --- a/srfi/225/srfi-146-impl.sld +++ b/srfi/225/srfi-146-impl.sld @@ -14,7 +14,7 @@ (define (mapping-map* dto proc dict) (mapping-map (lambda (key value) - (values key (proc key value))) + (values key (proc key value))) (dict-comparator dto dict) dict)) (define (mapping-find-update* dto dict key failure success) |