}
SCM_PROC(s_procedure_properties, "procedure-properties", 1, 0, 0, scm_procedure_properties);
-#ifdef __STDC__
-SCM
-scm_procedure_properties (SCM proc)
-#else
+
SCM
scm_procedure_properties (proc)
SCM proc;
-#endif
{
- 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);
}
SCM_PROC(s_set_procedure_properties_x, "set-procedure-properties!", 2, 0, 0, scm_set_procedure_properties_x);
-#ifdef __STDC__
-SCM
-scm_set_procedure_properties_x (SCM proc, SCM new_val)
-#else
+
SCM
scm_set_procedure_properties_x (proc, new_val)
SCM proc;
SCM new_val;
-#endif
{
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;
}
SCM_PROC(s_procedure_property, "procedure-property", 2, 0, 0, scm_procedure_property);
-#ifdef __STDC__
-SCM
-scm_procedure_property (SCM p, SCM k)
-#else
+
SCM
scm_procedure_property (p, k)
SCM p;
SCM k;
-#endif
{
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);
}
SCM_PROC(s_set_procedure_property_x, "set-procedure-property!", 3, 0, 0, scm_set_procedure_property_x);
-#ifdef __STDC__
-SCM
-scm_set_procedure_property_x (SCM p, SCM k, SCM v)
-#else
+
SCM
scm_set_procedure_property_x (p, k, v)
SCM p;
SCM k;
SCM v;
-#endif
{
SCM assoc;
if (!(SCM_NIMP (p) && SCM_CLOSUREP (p)))
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;
}
\f
-#ifdef __STDC__
-void
-scm_init_procprop (void)
-#else
+
void
scm_init_procprop ()
-#endif
{
#include "procprop.x"
}