Block continuation capture across printer.

* lib.c (obj_print): Applying a continuation guard
around the body of the function. This seems prudent.

1 files changed, 5 insertions, 0 deletions

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;
 }