*** empty log message ***

[bpt/guile.git] / libguile / procprop.c

diff --git a/libguile/procprop.c b/libguile/procprop.c
index 8b9ef9b..686a260 100644 (file)
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -72,7 +72,8 @@ SCM
 scm_procedure_properties (proc)
      SCM proc;
 {
-  SCM_ASSERT (scm_procedure_p (proc), proc, SCM_ARG1, s_procedure_properties);
+  SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (proc)),
+             proc, SCM_ARG1, s_procedure_properties);
   if (!(SCM_NIMP (proc) && SCM_CLOSUREP (proc)))
     proc = scm_stand_in_scm_proc(proc);
   return SCM_PROCPROPS (proc);
@@ -88,7 +89,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;
 }
 
@@ -102,7 +103,8 @@ scm_procedure_property (p, k)
   SCM assoc;
   if (!(SCM_NIMP (p) && SCM_CLOSUREP (p)))
     p = scm_stand_in_scm_proc(p);
-  SCM_ASSERT (scm_procedure_p (p), p, SCM_ARG1, s_procedure_property);
+  SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (p)),
+             p, SCM_ARG1, s_procedure_property);
   assoc = scm_sloppy_assq (k, SCM_PROCPROPS (p));
   return (SCM_NIMP (assoc) ? SCM_CDR (assoc) : SCM_BOOL_F);
 }
@@ -123,7 +125,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;
 }