summaryrefslogtreecommitdiff
path: root/libguile/procs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@oblong.net>2009-03-17 16:09:02 +0100
committerAndy Wingo <wingo@oblong.net>2009-03-17 16:09:02 +0100
commitb07a3cfda145c11039eb92a9d92ee2257479e2b7 (patch)
tree94c49f11a83179d58266b437b8bca5b45716a571 /libguile/procs.c
parent9a931c6883d9b03687c18d0c0683b018d6315145 (diff)
parentcce8b2ce93703aff953750fb40cb53176ea66504 (diff)
downloadguile-b07a3cfda145c11039eb92a9d92ee2257479e2b7.tar.gz
Merge commit 'cce8b2ce93703aff953750fb40cb53176ea66504' into vm-check
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 6f8d206f6..74cb86cce 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -81,7 +81,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;
}
@@ -102,7 +102,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;
}
@@ -111,7 +111,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;
}