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

Use `SCM_SNAME ()' when requesting the name of a subr.

Browse source 
* libguile/gsubr.c (create_gsubr, create_gsubr_with_generic):
  Use `SCM_SNAME ()' instead of `SCM_SUBR_ENTRY (subr).name'.

* libguile/procs.c (scm_c_define_subr_with_generic, scm_makcclo):
  Likewise.
  (scm_c_make_subr_with_generic): Same with `SCM_SUBR_GENERIC ()'.
This commit is contained in:
Ludovic Courtès 2009-01-20 21:24:41 +01:00
parent 5bec288a67
commit a62fad3a22
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/procs.c
View file

@ -83,7 +83,7 @@ SCM
scm_c_define_subr (const char *name, long type, SCM (*fcn) ())
{
SCM subr = scm_c_make_subr (name, type, fcn);
scm_define (SCM_SUBR_ENTRY(subr).name, subr);
scm_define (SCM_SNAME (subr), subr);
return subr;
}
@ -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_ENTRY(subr).generic = gf;
SCM_SUBR_GENERIC (subr) = gf;
return subr;
}
@ -101,7 +101,7 @@ scm_c_define_subr_with_generic (const char *name,
long type, SCM (*fcn) (), SCM *gf)
{
SCM subr = scm_c_make_subr_with_generic (name, type, fcn, gf);
scm_define (SCM_SUBR_ENTRY(subr).name, subr);
scm_define (SCM_SNAME (subr), subr);
return subr;
}