mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

Removed last change. (Replaced by a better change.)

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-11-10 07:58:32 +00:00
parent 7a13c3ae7b
commit 26e1985495
1 changed files with 1 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/backtrace.c
View file

@ -180,21 +180,6 @@ display_expression (frame, pname, source, port)
scm_free_print_state (print_state);
}
SCM_SYMBOL (scm_sym_apply, "apply");
/* Look up the first body form of the apply closure. We'll use this
below to prevent it from being displayed.
*/
static SCM
get_applybody ()
{
SCM proc = SCM_CDR (scm_sym2vcell (scm_sym_apply, SCM_BOOL_F, SCM_BOOL_F));
if (SCM_NIMP (proc) && SCM_CLOSUREP (proc))
return SCM_CADR (SCM_CODE (proc));
else
return SCM_UNDEFINED;
}
struct display_error_args {
SCM stack;
SCM port;
@ -211,7 +196,6 @@ display_error_body (struct display_error_args *a)
SCM source = SCM_BOOL_F;
SCM pname = SCM_BOOL_F;
SCM prev_frame = SCM_BOOL_F;
static SCM applybody = SCM_UNDEFINED;
if (SCM_DEBUGGINGP
&& SCM_NIMP (a->stack)
@ -230,14 +214,8 @@ display_error_body (struct display_error_args *a)
}
if (!(SCM_NIMP (pname) && SCM_ROSTRINGP (pname)))
pname = a->subr;
/* The value of applybody has to be setup after r4rs.scm has executed. */
if (SCM_UNBNDP (applybody))
applybody = get_applybody ();
if ((SCM_NIMP (pname) && SCM_ROSTRINGP (pname))
|| (SCM_NIMP (source)
&& SCM_MEMOIZEDP (source)
/* Exception: We don't want the body of apply to be displayed. */
&& SCM_MEMOIZED_EXP (source) != applybody))
|| (SCM_NIMP (source) && SCM_MEMOIZEDP (source)))
{
display_header (source, a->port);
display_expression (current_frame, pname, source, a->port);