bug#67041: [cuirass] cuirass-web crash

[Ludovic Courtès]

Ludovic Courtès <ludo@gnu.org> 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’.