diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-29 23:02:14 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-29 23:02:14 +0000 |
commit | fe970d8448e6a2d954c092869e08b604fbe76b79 (patch) | |
tree | 147be4353a1203e063809c0fe58f82425bb5191b | |
parent | e9cd0e473e3025b2655ba8acde014a672deb1797 (diff) | |
download | guile-fe970d8448e6a2d954c092869e08b604fbe76b79.tar.gz |
* stacks.c (scm_init_stacks): Set name of stack type.
-rw-r--r-- | libguile/stacks.c | 2 |
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" } |