diff options
| author |  Arvydas Silanskas
| 2021-11-11 21:09:01 +0200 |
|---|---|---|
| committer | Arvydas Silanskas
| 2021-11-11 21:09:01 +0200 |
| commit | e9b5f30a8c5b0c90d1e848873f45f0dbc67a73f3 (patch) | |
| tree | 3545da6dc697413b6baf8c92237241b15e377e56 /srfi | |
| parent | remove min-key, max-key, plist; add dependencies list to html (diff) | |
fix mapping implementations for dict-alter
Diffstat (limited to 'srfi')
| -rw-r--r-- | srfi/srfi-146-hash-impl.scm | 8 | ||||
| -rw-r--r-- | srfi/srfi-146-impl.scm | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/srfi/srfi-146-hash-impl.scm b/srfi/srfi-146-hash-impl.scm index 323e259..c05bede 100644 --- a/srfi/srfi-146-hash-impl.scm +++ b/srfi/srfi-146-hash-impl.scm @@ -18,8 +18,8 @@ ;; and force it into tail call (call/cc (lambda (k2) (define result - (failure (lambda (value) (k2 (insert value #f))) - (lambda () (k2 (ignore #f))))) + (failure (lambda (value) (call-with-values (lambda () (insert value #f)) k2)) + (lambda () (call-with-values (lambda () (ignore #f)) k2)))) ;; neither insert nor ignore called -- return result to top level escape (k result)))) (lambda (key value update remove) @@ -28,8 +28,8 @@ (success key value - (lambda (new-key new-value) (k2 (update new-key new-value #f))) - (lambda () (k2 (remove #f))))) + (lambda (new-key new-value) (call-with-values (lambda () (update new-key new-value #f)) k2)) + (lambda () (call-with-values (lambda () (remove #f)) k2)))) (k result)))))) new-dict))) diff --git a/srfi/srfi-146-impl.scm b/srfi/srfi-146-impl.scm index 49b4737..0887870 100644 --- a/srfi/srfi-146-impl.scm +++ b/srfi/srfi-146-impl.scm @@ -18,8 +18,8 @@ ;; and force it into tail call (call/cc (lambda (k2) (define result - (failure (lambda (value) (k2 (insert value #f))) - (lambda () (k2 (ignore #f))))) + (failure (lambda (value) (call-with-values (lambda () (insert value #f)) k2)) + (lambda () (call-with-values (lambda () (ignore #f)) k2)))) ;; neither insert nor ignore called -- return result to top level escape (k result)))) (lambda (key value update remove) @@ -28,8 +28,8 @@ (success key value - (lambda (new-key new-value) (k2 (update new-key new-value #f))) - (lambda () (k2 (remove #f))))) + (lambda (new-key new-value) (call-with-values (lambda () (update new-key new-value #f)) k2)) + (lambda () (call-with-values (lambda () (remove #f)) k2)))) (k result)))))) new-dict))) |