summaryrefslogtreecommitdiff
path: root/libguile/backtrace.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-03 16:26:28 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-03 16:26:28 +0000
commitcabe682ce632e7d657774859ced86d6c728fe440 (patch)
tree83b9f35e900b428b22f2259a41eb1b4e7928f9a2 /libguile/backtrace.c
parentd00ae47e13a793e8f792df41fb4de46edc25b48f (diff)
downloadguile-cabe682ce632e7d657774859ced86d6c728fe440.tar.gz
* dynl-vms.c, debug.c, coop-threads.c, backtrace.c, eval.c: More
SCM_NIMP tests that were redundant are now eliminated. Patches from Dirk Hermann applied by hand.
Diffstat (limited to 'libguile/backtrace.c')
-rw-r--r--libguile/backtrace.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index c2b325ee7..5b2c290f0 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -157,8 +157,7 @@ display_expression (SCM frame,SCM pname,SCM source,SCM port)
pstate->length = 3;
if (SCM_ROSTRINGP (pname))
{
- if (SCM_NIMP (frame)
- && SCM_FRAMEP (frame)
+ if (SCM_FRAMEP (frame)
&& SCM_FRAME_EVAL_ARGS_P (frame))
scm_puts ("While evaluating arguments to ", port);
else
@@ -199,7 +198,6 @@ display_error_body (struct display_error_args *a)
SCM prev_frame = SCM_BOOL_F;
if (SCM_DEBUGGINGP
- && SCM_NIMP (a->stack)
&& SCM_STACKP (a->stack)
&& SCM_STACK_LENGTH (a->stack) > 0)
{