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/throw.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/throw.c')
| -rw-r--r-- | libguile/throw.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index fc42886ba..325a9b501 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -532,7 +532,7 @@ SCM_DEFINE (scm_catch, "catch", 3, 0, 0, { struct scm_body_thunk_data c; - SCM_ASSERT (SCM_SYMBOLP(tag) || SCM_TRUE_P (tag), + SCM_ASSERT (SCM_SYMBOLP (tag) || SCM_EQ_P (tag, SCM_BOOL_T), tag, SCM_ARG1, FUNC_NAME); c.tag = tag; @@ -557,7 +557,7 @@ SCM_DEFINE (scm_lazy_catch, "lazy-catch", 3, 0, 0, { struct scm_body_thunk_data c; - SCM_ASSERT (SCM_SYMBOLP(tag) || SCM_TRUE_P (tag), + SCM_ASSERT (SCM_SYMBOLP (tag) || SCM_EQ_P (tag, SCM_BOOL_T), tag, SCM_ARG1, FUNC_NAME); c.tag = tag; @@ -615,7 +615,7 @@ scm_ithrow (SCM key, SCM args, int noreturn) { SCM this_key = SCM_CAR (dynpair); - if (SCM_TRUE_P (this_key) || SCM_EQ_P (this_key, key)) + if (SCM_EQ_P (this_key, SCM_BOOL_T) || SCM_EQ_P (this_key, key)) break; } } |