summaryrefslogtreecommitdiff
path: root/libguile/procs.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-29 14:22:44 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-29 14:22:44 +0000
commitf52672312e9b8b92fe09aba648facb96f09e407f (patch)
tree27e5612e46919a72d9c4d078c8268a158a962969 /libguile/procs.c
parent0a74e31d217f316bfa0a5ca0b70872760dc5eb44 (diff)
downloadguile-f52672312e9b8b92fe09aba648facb96f09e407f.tar.gz
* procs.c (scm_setter): Converted to use generic dispatch.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r--libguile/procs.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index a0ea5163f..a9f755a94 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -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;
}