Print changes

2026-08-13 02:41:41 -07:00
parent 046b9b0c87
commit 7b854c1559
11 changed files with 438 additions and 26 deletions
@@ -153,4 +153,17 @@ static ALWAYS_INLINE LispVal *UNWIND_AND_RETURN(StackFrame *frame,
 }
 noreturn void continue_unwinding(void);

+#define UNWIND_PROTECT(body, cleanup)                        \
+    {                                                        \
+        jmp_buf _internal_jb;                                \
+        if (setjmp(_internal_jb) == 0) {                     \
+            push_unwind_protect_frame(&_internal_jb);        \
+            StackFrame *_internal_target = LISP_STACK_REF(); \
+            {body};                                          \
+            unwind_to(_internal_target);                     \
+        } else {                                             \
+            cleanup                                          \
+        }                                                    \
+    };
+
 #endif