mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

(scm_source_properties): Return plist from hash if it's a

Browse source 
list set by source-properties! rather than an SRCPROPS object,
This commit is contained in:
Kevin Ryde 2003-08-08 22:57:28 +00:00
parent ddff957cd6
commit f5003c13b6
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/srcprop.c
View file

@ -158,10 +158,12 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
obj = SCM_MEMOIZED_EXP (obj);
else if (!SCM_CONSP (obj))
SCM_WRONG_TYPE_ARG (1, obj);
p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F);
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL);
if (SRCPROPSP (p))
return scm_srcprops_to_plist (p);
return SCM_EOL;
else
/* list from set-source-properties!, or SCM_EOL for not found */
return p;
}
#undef FUNC_NAME