summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r--libguile/procprop.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c
index 8b9ef9b3d..42ca7dbd9 100644
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -88,7 +88,7 @@ scm_set_procedure_properties_x (proc, new_val)
if (!(SCM_NIMP (proc) && SCM_CLOSUREP (proc)))
proc = scm_stand_in_scm_proc(proc);
SCM_ASSERT (SCM_NIMP (proc) && SCM_CLOSUREP (proc), proc, SCM_ARG1, s_set_procedure_properties_x);
- SCM_PROCPROPS (proc) = new_val;
+ SCM_SETPROCPROPS (proc, new_val);
return SCM_UNSPECIFIED;
}
@@ -123,7 +123,7 @@ scm_set_procedure_property_x (p, k, v)
if (SCM_NIMP (assoc))
SCM_SETCDR (assoc, v);
else
- SCM_PROCPROPS (p) = scm_acons (k, v, SCM_PROCPROPS (p));
+ SCM_SETPROCPROPS (p, scm_acons (k, v, SCM_PROCPROPS (p)));
return SCM_UNSPECIFIED;
}