summaryrefslogtreecommitdiffstats
path: root/unwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'unwind.c')
-rw-r--r--unwind.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/unwind.c b/unwind.c
index 13089c3c..0815a885 100644
--- a/unwind.c
+++ b/unwind.c
@@ -65,6 +65,8 @@ static val args_s, form_s;
static val sys_cont_s, sys_cont_poison_s;
static val sys_cont_free_s, sys_capture_cont_s;
+val catch_frame_s;
+
static val frame_type, catch_frame_type, handle_frame_type;
static val fcall_frame_type, eval_frame_type, expand_frame_type;
@@ -1286,10 +1288,10 @@ void uw_late_init(void)
sys_cont_s = intern(lit("cont"), system_package);
sys_cont_poison_s = intern(lit("cont-poison"), system_package);
sys_cont_free_s = intern(lit("cont-free"), system_package);
+ catch_frame_s = intern(lit("catch-frame"), user_package);
frame_type = make_struct_type(intern(lit("frame"), user_package),
nil, nil, nil, nil, nil, nil, nil);
- catch_frame_type = make_struct_type(intern(lit("catch-frame"),
- user_package),
+ catch_frame_type = make_struct_type(catch_frame_s,
frame_type, nil,
list(types_s, desc_s, jump_s, nao),
nil, nil, nil, nil);