1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00

* procs.c (scm_setter): Converted to use generic dispatch.

This commit is contained in:
Mikael Djurfeldt 1999-08-29 14:22:44 +00:00
parent 0a74e31d21
commit f52672312e

View file

@ -349,22 +349,23 @@ scm_procedure (SCM proc)
return 0; /* not reached */
}
SCM_PROC (s_setter, "setter", 1, 0, 0, scm_setter);
SCM_GPROC (s_setter, "setter", 1, 0, 0, scm_setter, g_setter);
SCM
scm_setter (SCM proc)
{
SCM_ASSERT (SCM_NIMP (proc), proc, SCM_ARG1, s_setter);
SCM_GASSERT1 (SCM_NIMP (proc), g_setter, proc, SCM_ARG1, s_setter);
if (SCM_PROCEDURE_WITH_SETTER_P (proc))
return SCM_SETTER (proc);
else if (SCM_STRUCTP (proc))
{
SCM_ASSERT (SCM_I_OPERATORP (proc), proc, SCM_ARG1, s_setter);
SCM_GASSERT1 (SCM_I_OPERATORP (proc),
g_setter, proc, SCM_ARG1, s_setter);
return (SCM_I_ENTITYP (proc)
? SCM_ENTITY_SETTER (proc)
: SCM_OPERATOR_SETTER (proc));
}
scm_wrong_type_arg (s_setter, SCM_ARG1, proc);
SCM_WTA_DISPATCH_1 (g_setter, proc, SCM_ARG1, s_setter);
return 0;
}