mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 04:40:19 +02:00
Code Activity

* struct.c, struct.h (scm_make_vtable): New function, providing

Browse source 
`make-vtable'.
	* stacks.c (scm_init_stacks): Use it.
This commit is contained in:
Kevin Ryde 2007-03-07 21:39:34 +00:00
parent b73aa1222a
commit c6e540513f
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/stacks.c
View file

@ -1,5 +1,5 @@
/* Representation of stack frame debug information /* Representation of stack frame debug information
* Copyright (C) 1996,1997,2000,2001, 2006 Free Software Foundation * Copyright (C) 1996,1997,2000,2001, 2006, 2007 Free Software Foundation
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -740,14 +740,10 @@ SCM_DEFINE (scm_frame_overflow_p, "frame-overflow?", 1, 0, 0,
void void
scm_init_stacks () scm_init_stacks ()
{ {
SCM vtable; scm_stack_type =
SCM stack_layout scm_permanent_object
= scm_make_struct_layout (scm_from_locale_string (SCM_STACK_LAYOUT)); (scm_make_vtable (scm_from_locale_string (SCM_STACK_LAYOUT),
vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); SCM_UNDEFINED));
scm_stack_type
= 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_set_struct_vtable_name_x (scm_stack_type,
scm_from_locale_symbol ("stack")); scm_from_locale_symbol ("stack"));
#include "libguile/stacks.x" #include "libguile/stacks.x"