diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-18 07:24:24 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-18 07:24:24 +0000 |
commit | 230d095fc58e0fabfd8026e06e505b2ff62d6ec2 (patch) | |
tree | c49c710c7ac8108fe8c502c296d5f10f2f571bc6 /libguile/srcprop.c | |
parent | c8045e8dbd43ac5f346346a1a8ce6f619e2629bc (diff) | |
download | guile-230d095fc58e0fabfd8026e06e505b2ff62d6ec2.tar.gz |
Fixed some SCM/scm_bits_t mixups and initialization problems.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 4 |
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; } |