diff options
| author |  Arvydas Silanskas
| 2021-11-11 22:58:52 +0200 |
|---|---|---|
| committer | Arvydas Silanskas
| 2021-11-11 22:58:52 +0200 |
| commit | c29bfed846b7a2fd162eb55cbfd3d609f85d84ae (patch) | |
| tree | 2084df6c76ed4c0b7517cd299d70dd96bca55238 | |
| parent | fix kawa docker test (diff) | |
comments
Diffstat (limited to '')
| -rw-r--r-- | srfi/srfi-146-hash-impl.scm | 3 | ||||
| -rw-r--r-- | srfi/srfi-146-impl.scm | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/srfi/srfi-146-hash-impl.scm b/srfi/srfi-146-hash-impl.scm index c05bede..a86fd03 100644 --- a/srfi/srfi-146-hash-impl.scm +++ b/srfi/srfi-146-hash-impl.scm @@ -18,6 +18,9 @@ ;; and force it into tail call (call/cc (lambda (k2) (define result + ;; calls to insert / ignore / update / remove + ;; can return unspecified amount of values, + ;; hence call-with-values approach (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 diff --git a/srfi/srfi-146-impl.scm b/srfi/srfi-146-impl.scm index 0887870..a5d3aa6 100644 --- a/srfi/srfi-146-impl.scm +++ b/srfi/srfi-146-impl.scm @@ -18,6 +18,9 @@ ;; and force it into tail call (call/cc (lambda (k2) (define result + ;; calls to insert / ignore / update / remove + ;; can return unspecified amount of values, + ;; hence call-with-values approach (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 |