diff options
| author |  Arthur A. Gleckler
| 2021-11-13 15:44:38 -0800 |
|---|---|---|
| committer | Arthur A. Gleckler
| 2021-11-13 15:44:38 -0800 |
| commit | 88bc7f2195e503f35a94011cda141a1ae34feb32 (patch) | |
| tree | efe6be47c0f48544ea8c88207016680c8aee3504 /srfi/srfi-146-impl.scm | |
| parent | Merge remote-tracking branch 'upstream/master' (diff) | |
Drop trailing whitespace.
Diffstat (limited to 'srfi/srfi-146-impl.scm')
| -rw-r--r-- | srfi/srfi-146-impl.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/srfi/srfi-146-impl.scm b/srfi/srfi-146-impl.scm index a5d3aa6..b504e5f 100644 --- a/srfi/srfi-146-impl.scm +++ b/srfi/srfi-146-impl.scm @@ -4,7 +4,7 @@ (define (prep-dtd-arg proc) (lambda (dtd . args) (apply proc args))) - + (define (mapping-alter* dtd dict key failure success) (call/cc ;; escape from whole hashmap-search entirely, when success / failure @@ -17,7 +17,7 @@ ;; handle when continuation procedure is called ;; and force it into tail call (call/cc (lambda (k2) - (define result + (define result ;; calls to insert / ignore / update / remove ;; can return unspecified amount of values, ;; hence call-with-values approach @@ -28,7 +28,7 @@ (lambda (key value update remove) (call/cc (lambda (k2) (define result - (success + (success key value (lambda (new-key new-value) (call-with-values (lambda () (update new-key new-value #f)) k2)) |