unwind: use allocate-struct in frame reification.

* struct.c (allocate_struct): Changed from internal to
external linkage.

* struct.h (allocate_struct): Declared.

* unwind.c (uw_get_frames, uw_find_frames_by_mask): Use
allocate_struct instead of make_struct.

1 files changed, 1 insertions, 2 deletions

diff --git a/struct.c b/struct.c
index 5ea77869..48f961b6 100644
--- a/struct.c
+++ b/struct.c
@@ -114,7 +114,6 @@ static val make_struct_type_compat(val name, val super, val slots,
                                    val initfun, val boactor);
 static val call_super_method(val inst, val sym, struct args *);
 static val call_super_fun(val type, val sym, struct args *);
-static val allocate_struct(val type);
 
 void struct_init(void)
 {
@@ -516,7 +515,7 @@ static void call_postinitfun_chain(struct struct_type *st, val strct)
   }
 }
 
-static val allocate_struct(val type)
+val allocate_struct(val type)
 {
   val self = lit("allocate-struct");
   struct struct_type *st = stype_handle(&type, self);