summaryrefslogtreecommitdiff
path: root/libguile/procs.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-01-20 21:24:41 +0100
committerLudovic Courtès <ludo@gnu.org>2009-02-11 23:37:42 +0100
commitcce8b2ce93703aff953750fb40cb53176ea66504 (patch)
tree5361e02284de798de321c2e0b040637b73a555aa /libguile/procs.c
parent4c9e29ec38350a5206aa3e8e72ad4376512ada2b (diff)
downloadguile-cce8b2ce93703aff953750fb40cb53176ea66504.tar.gz
Use `SCM_SNAME ()' when requesting the name of a subr.
* 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 ()'.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r--libguile/procs.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index 5541671e3..acd7e4663 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -78,7 +78,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;
}
@@ -99,7 +99,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;
}
@@ -108,7 +108,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;
}