mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

See ChangeLog from 2005-03-02.

Browse source
This commit is contained in:
Marius Vollmer 2005-03-02 20:42:01 +00:00
parent cb1cfc42a4
commit 9de87eea47
67 changed files with 3044 additions and 2606 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/stacks.c
View file

@ -434,7 +434,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1,
scm_make_stack was given. */
if (scm_is_eq (obj, SCM_BOOL_T))
{
dframe = scm_last_debug_frame;
dframe = scm_i_last_debug_frame ();
}
else if (SCM_DEBUGOBJP (obj))
{
@ -515,7 +515,7 @@ SCM_DEFINE (scm_stack_id, "stack-id", 1, 0, 0,
long offset = 0;
if (scm_is_eq (stack, SCM_BOOL_T))
{
dframe = scm_last_debug_frame;
dframe = scm_i_last_debug_frame ();
}
else if (SCM_DEBUGOBJP (stack))
{