Set `MRB_FIBER_TERMINATED` flag on exception termination of a fiber.

1 files changed, 1 insertions, 0 deletions

diff --git a/src/vm.c b/src/vm.c
index 975899256..84d80134e 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1902,6 +1902,7 @@ RETRY_TRY_BLOCK:
                 if (c->fib) {
                   mrb_write_barrier(mrb, (struct RBasic*)c->fib);
                 }
+                mrb->c->status = MRB_FIBER_TERMINATED;
                 mrb->c = c->prev;
                 c->prev = NULL;
                 goto L_RAISE;