From fe970d8448e6a2d954c092869e08b604fbe76b79 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Thu, 29 Jul 1999 23:02:14 +0000
Subject: [PATCH] * stacks.c (scm_init_stacks): Set name of stack type.

---
 libguile/stacks.c | 2 ++
 1 file changed, 2 insertions(+)

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"
 }