summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-03-30 09:15:15 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-03-30 09:15:15 +0000
commit843524cc2079e6fb23554eac366a87faf0d720f3 (patch)
tree4e2ee7e4d6aa66a0a1bfae6386b8b0f60c13e9bf /libguile/dynwind.c
parentfbd485ba49663beaf82cf4564d4e9b5d900c4c26 (diff)
downloadguile-843524cc2079e6fb23554eac366a87faf0d720f3.tar.gz
Fix some typing issues wrt SCM/scm_bits_t.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c5
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;