cbaines/guile-knots
1
Fork 0
Code Issues Pull requests Activity Actions

Compare commits

base: cbaines:8f3e0a9a1d8572f4e96651ec0ded21717644c6bb
Branches Tags
cbaines:trunk
cbaines:pages
cbaines:actions-test
..
compare: cbaines:ab5411da423043f2b8a0e27c7507f8d9c34686a2
Branches Tags
cbaines:pages
cbaines:trunk
cbaines:actions-test

No commits in common. "8f3e0a9a1d8572f4e96651ec0ded21717644c6bb" and "ab5411da423043f2b8a0e27c7507f8d9c34686a2" have entirely different histories.
8f3e0a9a1d ... ab5411da42

3 changed files with 6 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
knots/parallelism.scm
View file

@ -217,9 +217,9 @@
(if (null? active-channels)
(map
(match-lambda
((#f . ('exception exn))
((#f . ('exception . exn))
(raise-exception exn))
((#f . ('result val))
((#f . ('result . val))
val))
channels-to-results)
(loop
@ -239,10 +239,10 @@
(if (eq? channel c)
(cons #f
(match result
(('exception exn)
(('exception . exn)
result)
(_
(list 'result result))))
(cons 'result result))))
(cons c r))))
channels-to-results)))
#f))))

3
knots/resource-pool.scm
View file

@ -1351,7 +1351,8 @@ available. Return the resource once PROC has returned."
'destroy
'return)
resource))
(raise-exception exn))
(unless (resource-pool-destroy-resource-exception? exn)
(raise-exception exn)))
(lambda ()
(with-exception-handler
(lambda (exn)

18
tests/parallelism.scm
View file

@ -61,24 +61,6 @@
identity
'(()))))
(run-fibers-for-tests
(lambda ()
(with-exception-handler
(lambda (exn)
(unless (and (exception-with-message? exn)
(string=? (exception-message exn)
"foo"))
(raise-exception exn)))
(lambda ()
(fibers-map-with-progress
(lambda _
(raise-exception
(make-exception-with-message "foo")))
'((1)))
(error 'should-not-reach-here))
#:unwind? #t)))
(run-fibers-for-tests
(lambda ()
(with-exception-handler