*** empty log message ***

[bpt/guile.git] / libguile / stacks.c

diff --git a/libguile/stacks.c b/libguile/stacks.c
index 0c624ca..f7d8afc 100644 (file)
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -52,6 +52,7 @@
 #include "struct.h"
 #include "macros.h"
 #include "procprop.h"
+#include "modules.h"
 
 #include "stacks.h"
 
@@ -222,8 +223,6 @@ read_frame (dframe, offset, iframe)
   iframe->flags = flags;
 }
 
-SCM_SYMBOL (scm_sym_apply, "apply");
-
 /* Look up the first body form of the apply closure.  We'll use this
    below to prevent it from being displayed.
 */
@@ -794,5 +793,7 @@ scm_init_stacks ()
     = scm_permanent_object (scm_make_struct (vtable, SCM_INUM0,
                                             scm_cons (stack_layout,
                                                       SCM_EOL)));
+  scm_set_struct_vtable_name_x (scm_stack_type,
+                               SCM_CAR (scm_intern0 ("stack")));
 #include "stacks.x"
 }