diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-05 11:39:46 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-05 11:39:46 +0000 |
commit | 9a09deb1c31529e4710dec3badc860ca1cd466af (patch) | |
tree | ada8db2350a0114a0d8d17eca63050c8d2620526 /libguile/stacks.c | |
parent | 1f496b05af0b75a9ba5b4ee0e7f59b6fa4607a27 (diff) | |
download | guile-9a09deb1c31529e4710dec3badc860ca1cd466af.tar.gz |
* Removed SCM_TRUE_P since it may get confused with !SCM_FALSEP.
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 17116fc01..7595abff8 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -353,7 +353,7 @@ narrow_stack (SCM stack,int inner,SCM inner_key,int outer,SCM outer_key) int n = s->length; /* Cut inner part. */ - if (SCM_TRUE_P (inner_key)) + if (SCM_EQ_P (inner_key, SCM_BOOL_T)) /* Cut all frames up to user module code */ { for (i = 0; inner; ++i, --inner) @@ -428,7 +428,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1, scm_make_stack was given. */ /* just use dframe == scm_last_debug_frame (from initialization of dframe, above) if obj is #t */ - if (!SCM_TRUE_P (obj)) + if (!SCM_EQ_P (obj, SCM_BOOL_T)) { SCM_ASSERT (SCM_NIMP (obj), obj, SCM_ARG1, FUNC_NAME); if (SCM_DEBUGOBJP (obj)) @@ -510,7 +510,7 @@ SCM_DEFINE (scm_stack_id, "stack-id", 1, 0, 0, { scm_debug_frame *dframe; long offset = 0; - if (SCM_TRUE_P (stack)) + if (SCM_EQ_P (stack, SCM_BOOL_T)) dframe = scm_last_debug_frame; else { |