From 0d3037d0739400df5a7cdf197690b54a671b897a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 21 Oct 2016 06:34:27 -0700 Subject: Block continuation capture across printer. * lib.c (obj_print): Applying a continuation guard around the body of the function. This seems prudent. --- lib.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib.c b/lib.c index 7fcfb875..8ffadc8c 100644 --- a/lib.c +++ b/lib.c @@ -9451,6 +9451,9 @@ val obj_print(val obj, val out, val pretty) val save_indent = get_indent(out); struct strm_ctx *ctx_orig = get_ctx(out); struct strm_ctx *volatile ctx = ctx_orig, ctx_struct; + uw_frame_t cont_guard; + + uw_push_guard(&cont_guard); uw_simple_catch_begin; @@ -9481,6 +9484,8 @@ val obj_print(val obj, val out, val pretty) uw_catch_end; + uw_pop_frame(&cont_guard); + return ret; } -- cgit v1.2.3