diff options
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index cd16789c6..9f0749861 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -245,7 +245,7 @@ SCM_DEFINE (scm_source_property, "source-property", 2, 0, 0, p = SRCPROPALIST (p); alist: p = scm_assoc (key, p); - return (SCM_NIMP (p) ? SCM_CDR (p) : SCM_BOOL_F); + return (scm_is_pair (p) ? SCM_CDR (p) : SCM_BOOL_F); } return SCM_UNBNDP (p) ? SCM_BOOL_F : p; } |