mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Fixed some SCM/scm_bits_t mixups and initialization problems.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-18 07:24:24 +00:00
parent c8045e8dbd
commit 230d095fc5
3 changed files with 23 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/srcprop.c
View file

@ -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;
}