diff options
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index c7d4e2cc0..e3691d4fb 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -30,6 +30,7 @@ #include "libguile/ports.h" #include "libguile/root.h" #include "libguile/weaks.h" +#include "libguile/gc.h" #include "libguile/validate.h" #include "libguile/srcprop.h" @@ -206,7 +207,7 @@ SCM_DEFINE (scm_set_source_properties_x, "set-source-properties!", 2, 0, 0, else if (!scm_is_pair (obj)) SCM_WRONG_TYPE_ARG(1, obj); handle = scm_hashq_create_handle_x (scm_source_whash, obj, plist); - SCM_SETCDR (handle, plist); + return plist; } #undef FUNC_NAME |