diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c index 6eedeac953..3f4c91cccb 100644 --- a/src/racket/src/fun.c +++ b/src/racket/src/fun.c @@ -8522,7 +8522,6 @@ Scheme_Lightweight_Continuation *scheme_restore_lightweight_continuation_marks(S cm_len = lw->saved_lwc->cont_mark_stack_end - lw->saved_lwc->cont_mark_stack_start; cm_pos_delta = MZ_CONT_MARK_POS + 2 - lw->saved_lwc->cont_mark_pos_start; - MZ_CONT_MARK_POS = lw->saved_lwc->cont_mark_pos_end + cm_pos_delta; if (cm_len) { /* install captured continuation marks, adjusting the pos @@ -8540,6 +8539,8 @@ Scheme_Lightweight_Continuation *scheme_restore_lightweight_continuation_marks(S } } + MZ_CONT_MARK_POS = lw->saved_lwc->cont_mark_pos_end + cm_pos_delta; + return lw; }