mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* stacks.c (scm_init_stacks): Pass a string, not a layout object,

Browse source 
to scm_make_vtable_vtable.  (Thanks to Dale P. Smith.)
This commit is contained in:
Mikael Djurfeldt 2000-08-27 03:21:03 +00:00
parent 3ce4544cfa
commit b299f5cd5b
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/stacks.c
View file

@ -734,10 +734,9 @@ void
scm_init_stacks ()
{
SCM vtable;
SCM vtable_layout = scm_make_struct_layout (scm_nullstr);
SCM stack_layout
= scm_make_struct_layout (scm_makfrom0str (SCM_STACK_LAYOUT));
vtable = scm_make_vtable_vtable (vtable_layout, SCM_INUM0, SCM_EOL);
vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL);
scm_stack_type
= scm_permanent_object (scm_make_struct (vtable, SCM_INUM0,
scm_cons (stack_layout,