mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +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 23:09:49 +00:00
parent 0827607648
commit 1eea44481c
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

@ -178,10 +178,12 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
else if (SCM_NCONSP (obj)) else if (SCM_NCONSP (obj))
SCM_WRONG_TYPE_ARG (1, obj); SCM_WRONG_TYPE_ARG (1, obj);
#endif #endif
p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F); p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL);
if (SRCPROPSP (p)) if (SRCPROPSP (p))
return scm_srcprops_to_plist (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 #undef FUNC_NAME