From 1eea44481c64d9fdb790bbe347606111d4efb445 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 8 Aug 2003 23:09:49 +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 b0326dd8d..cdf7a8f28 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -178,10 +178,12 @@ 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_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