mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* procs.c (scm_setter): Signal WTA if handed an entity or operator

Browse source 
lacking a setter.
This commit is contained in:
Mikael Djurfeldt 1999-09-09 21:29:25 +00:00
parent bc848f7fee
commit c72a774a57
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/procs.c
View file

@ -360,11 +360,15 @@ scm_setter (SCM proc)
return SCM_SETTER (proc); return SCM_SETTER (proc);
else if (SCM_STRUCTP (proc)) else if (SCM_STRUCTP (proc))
{ {
SCM setter;
SCM_GASSERT1 (SCM_I_OPERATORP (proc), SCM_GASSERT1 (SCM_I_OPERATORP (proc),
g_setter, proc, SCM_ARG1, s_setter); g_setter, proc, SCM_ARG1, s_setter);
return (SCM_I_ENTITYP (proc) setter = (SCM_I_ENTITYP (proc)
? SCM_ENTITY_SETTER (proc) ? SCM_ENTITY_SETTER (proc)
: SCM_OPERATOR_SETTER (proc)); : SCM_OPERATOR_SETTER (proc));
if (SCM_NIMP (setter))
return setter;
/* fall through */
} }
SCM_WTA_DISPATCH_1 (g_setter, proc, SCM_ARG1, s_setter); SCM_WTA_DISPATCH_1 (g_setter, proc, SCM_ARG1, s_setter);
return 0; return 0;