Ludovic Courtès <[email protected]> skribis: > scheme@(guile-user)> (run-fibers > (lambda () > (define pool (make-resource-pool (iota 10))) > (with-resource-from-pool pool x (pk 'x x) (throw 'doh!)))) > > ;;; (x 0) > Uncaught exception in task: > In fibers.scm: > 186:20 9 (_) > 145:21 8 (_) > In ice-9/boot-9.scm: > 1752:10 7 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _) > In cuirass/utils.scm: > 99:24 6 (_) > In current input: > 6:44 5 (_ _) > In ice-9/boot-9.scm: > 1685:16 4 (raise-exception _ #:continuable? _) > In cuirass/utils.scm: > 96:12 3 (_ #<&compound-exception components: (#<&error> #<&irritants > irritants: ()> #<&exception-with-kind-and-args kind: doh! args: ()>)>) > In fibers/operations.scm: > 154:10 2 (perform-operation _) > In fibers/scheduler.scm: > 357:6 1 (suspend-current-task _) > In ice-9/boot-9.scm: > 1685:16 0 (raise-exception _ #:continuable? _) > ice-9/boot-9.scm:1685:16: In procedure raise-exception: > Attempt to suspend fiber within continuation barrier
This is fixed by Cuirass commit 7c697ad7f15c13264615d2b6c9165b21abaf61dd. Ludo’.
