summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-18 07:24:24 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-18 07:24:24 +0000
commit230d095fc58e0fabfd8026e06e505b2ff62d6ec2 (patch)
treec49c710c7ac8108fe8c502c296d5f10f2f571bc6 /libguile/srcprop.c
parentc8045e8dbd43ac5f346346a1a8ce6f619e2629bc (diff)
downloadguile-230d095fc58e0fabfd8026e06e505b2ff62d6ec2.tar.gz
Fixed some SCM/scm_bits_t mixups and initialization problems.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r--libguile/srcprop.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 6dd200b1d..6dce8a90f 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -177,8 +177,8 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
else if (SCM_NCONSP (obj))
SCM_WRONG_TYPE_ARG (1, obj);
#endif
- p = scm_hashq_ref (scm_source_whash, obj, (SCM) NULL);
- if (p != (SCM) NULL && SRCPROPSP (p))
+ p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F);
+ if (SRCPROPSP (p))
return scm_srcprops_to_plist (p);
return SCM_EOL;
}