diff options
author | Kevin Ryde <user42@zip.com.au> | 2007-03-07 23:35:55 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2007-03-07 23:35:55 +0000 |
commit | b3aa4626cd68c3ee8c16218f7ad5ed9df21dfff3 (patch) | |
tree | 9481f150645a9b86135f93618a86f16b1004e622 /libguile/stacks.c | |
parent | 1ef21ad2a90cb8f1f64d2aa81b8b829ea1b9e738 (diff) | |
download | guile-b3aa4626cd68c3ee8c16218f7ad5ed9df21dfff3.tar.gz |
merge from 1.8 branch
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 922c52231..7490db215 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -1,5 +1,5 @@ /* 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 * modify it under the terms of the GNU Lesser General Public @@ -741,14 +741,10 @@ SCM_DEFINE (scm_frame_overflow_p, "frame-overflow?", 1, 0, 0, void scm_init_stacks () { - SCM vtable; - SCM stack_layout - = scm_make_struct_layout (scm_from_locale_string (SCM_STACK_LAYOUT)); - 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, - SCM_EOL))); + scm_stack_type = + scm_permanent_object + (scm_make_vtable (scm_from_locale_string (SCM_STACK_LAYOUT), + SCM_UNDEFINED)); scm_set_struct_vtable_name_x (scm_stack_type, scm_from_locale_symbol ("stack")); #include "libguile/stacks.x" |