mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 15:40:29 +02:00
Code Activity

Add SCM_SET_SUBR_GENERIC ()' to replace SCM_SUBR_GENERIC ()' as an lvalue.

Browse source 
* libguile/goops.c (scm_c_extend_primitive_generic): Use
  `SCM_SET_SUBR_GENERIC ()' instead of using `SCM_SUBR_GENERIC ()' as an
  lvalue.

* libguile/procs.c (scm_c_make_subr_with_generic): Use `SCM_SET_SUBR_GENERIC_LOC ()'.

* libguile/procs.h (SCM_SET_SUBR_GENERIC, SCM_SET_SUBR_GENERIC_LOC): New macros.
This commit is contained in:
Ludovic Courtès 2009-01-20 23:29:09 +01:00
parent a62fad3a22
commit 499b5dfa3e
3 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/procs.c
View file

@ -92,7 +92,7 @@ scm_c_make_subr_with_generic (const char *name,
long type, SCM (*fcn) (), SCM *gf)
{
SCM subr = scm_c_make_subr (name, type, fcn);
SCM_SUBR_GENERIC (subr) = gf;
SCM_SET_SUBR_GENERIC_LOC (subr, gf);
return subr;
}