diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-03 16:26:28 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-03 16:26:28 +0000 |
commit | cabe682ce632e7d657774859ced86d6c728fe440 (patch) | |
tree | 83b9f35e900b428b22f2259a41eb1b4e7928f9a2 /libguile/backtrace.c | |
parent | d00ae47e13a793e8f792df41fb4de46edc25b48f (diff) | |
download | guile-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.c | 4 |
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) { |