summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-07-29 23:02:14 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-07-29 23:02:14 +0000
commitfe970d8448e6a2d954c092869e08b604fbe76b79 (patch)
tree147be4353a1203e063809c0fe58f82425bb5191b
parente9cd0e473e3025b2655ba8acde014a672deb1797 (diff)
downloadguile-fe970d8448e6a2d954c092869e08b604fbe76b79.tar.gz
* stacks.c (scm_init_stacks): Set name of stack type.
-rw-r--r--libguile/stacks.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 2a06097b0..da35ca391 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -795,5 +795,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"
}