diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-30 09:15:15 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-30 09:15:15 +0000 |
commit | 843524cc2079e6fb23554eac366a87faf0d720f3 (patch) | |
tree | 4e2ee7e4d6aa66a0a1bfae6386b8b0f60c13e9bf /libguile/dynwind.c | |
parent | fbd485ba49663beaf82cf4564d4e9b5d900c4c26 (diff) | |
download | guile-843524cc2079e6fb23554eac366a87faf0d720f3.tar.gz |
Fix some typing issues wrt SCM/scm_bits_t.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r-- | libguile/dynwind.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 3108f17c6..e2f3aa351 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -160,7 +160,8 @@ scm_internal_dynamic_wind (scm_guard_t before, { SCM guards, ans; before (guard_data); - SCM_NEWSMOB3 (guards, tc16_guards, before, after, guard_data); + SCM_NEWSMOB3 (guards, tc16_guards, (scm_bits_t) before, + (scm_bits_t) after, (scm_bits_t) guard_data); scm_dynwinds = scm_acons (guards, SCM_BOOL_F, scm_dynwinds); ans = inner (inner_data); scm_dynwinds = SCM_CDR (scm_dynwinds); @@ -198,7 +199,7 @@ void scm_dowinds (SCM to, long delta) { tail: - if (scm_dynwinds == to); + if (SCM_EQ_P (to, scm_dynwinds)); else if (0 > delta) { SCM wind_elt; |