mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

* Don't use string or vector macros when accessing compiled closures.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-26 20:11:22 +00:00
parent 9eb364fccb
commit 74cc85038e
5 changed files with 42 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gsubr.c
View file

@ -83,8 +83,8 @@ scm_make_gsubr(const char *name,int req,int opt,int rst,SCM (*fcn)())
fputs("ERROR in scm_make_gsubr: too many args\n", stderr);
exit (1);
}
SCM_GSUBR_PROC (cclo) = scm_make_subr_opt (name, scm_tc7_subr_0, fcn, 0);
SCM_GSUBR_TYPE (cclo) = SCM_MAKINUM (SCM_GSUBR_MAKTYPE (req, opt, rst));
SCM_SET_GSUBR_PROC (cclo, scm_make_subr_opt (name, scm_tc7_subr_0, fcn, 0));
SCM_SET_GSUBR_TYPE (cclo, SCM_MAKINUM (SCM_GSUBR_MAKTYPE (req, opt, rst)));
SCM_SETCDR (symcell, cclo);
#ifdef DEBUG_EXTENSIONS
if (SCM_REC_PROCNAMES_P)