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

Merge commit 'cce8b2ce93' into vm-check

Browse source
This commit is contained in:
Andy Wingo 2009-03-17 16:09:02 +01:00
commit b07a3cfda1
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

@ -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;
}