diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 14:22:44 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 14:22:44 +0000 |
commit | f52672312e9b8b92fe09aba648facb96f09e407f (patch) | |
tree | 27e5612e46919a72d9c4d078c8268a158a962969 /libguile/procs.c | |
parent | 0a74e31d217f316bfa0a5ca0b70872760dc5eb44 (diff) | |
download | guile-f52672312e9b8b92fe09aba648facb96f09e407f.tar.gz |
* procs.c (scm_setter): Converted to use generic dispatch.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r-- | libguile/procs.c | 9 |
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; } |