From f5003c13b638103d4a95b333cafefde0711020ba Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 8 Aug 2003 22:57:28 +0000 Subject: [PATCH] (scm_source_properties): Return plist from hash if it's a list set by source-properties! rather than an SRCPROPS object, --- libguile/srcprop.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 019e8ba35..94b0daedf 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -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