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

* srcprop.c (scm_source_property): Bugfix: Use SCM_NECONSP instead

Browse source 
of SCM_NCONSP.  (Thanks to Greg Badros.)
This commit is contained in:
Mikael Djurfeldt 1999-09-12 02:24:36 +00:00
parent 73d6b4df01
commit 09a5681038
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/srcprop.c
View file

@ -229,7 +229,7 @@ scm_source_property (obj, key)
if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj);
#ifndef SCM_RECKLESS
else if (SCM_NCONSP (obj))
else if (SCM_NECONSP (obj))
scm_wrong_type_arg (s_source_property, 1, obj);
#endif
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL);