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 | |
| parent | Merge branch 'master' of github.com:johnwcowan/srfi-225 (diff) | |
Drop trailing whitespace.
| -rw-r--r-- | srfi-225-test.scm | 10 | ||||
| -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 |
4 files changed, 8 insertions, 8 deletions
diff --git a/srfi-225-test.scm b/srfi-225-test.scm index 4967f94..a7c76a8 100644 --- a/srfi-225-test.scm +++ b/srfi-225-test.scm @@ -654,7 +654,7 @@ (test-group "dict-fold" - + ;; simple case (let () (define value @@ -666,7 +666,7 @@ (test-assert (or (equal? '(a b c d) value) (equal? '(c d a b) value)))) - + (let () ;; continuation captured in a middle of fold @@ -737,7 +737,7 @@ (3 . c) (4 . d))))) '(1 2 3 4)) - + (test-for-each (let* ((cmp (dict-comparator dto (alist->dict '()))) (ordering (and cmp (comparator-ordered? cmp)))) ordering) @@ -815,7 +815,7 @@ (acc (cons 2 'b)) (acc (cons 2 'c)) (test-assert (dict=? dto equal? (acc (eof-object)) (alist->dict '((1 . a) (2 . c)))))) - + (unless mutable? (test-skip 1)) (test-group @@ -835,7 +835,7 @@ (acc (cons 2 'b)) (acc (cons 2 'c)) (test-assert (dict=? dto equal? (acc (eof-object)) (alist->dict '((1 . a) (2 . b)))))) - + (unless mutable? (test-skip 1)) (test-group 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) |