summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-26 20:11:22 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-26 20:11:22 +0000
commit74cc85038e5685aa7f9e81e0a9004b0717fb22a5 (patch)
tree8e7c69e7945286e9e7a65a473fb71fb50799fcf3 /libguile/gsubr.c
parent9eb364fccba89d07f1063d373df1aff911288e83 (diff)
downloadguile-74cc85038e5685aa7f9e81e0a9004b0717fb22a5.tar.gz
* Don't use string or vector macros when accessing compiled closures.
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r--libguile/gsubr.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c
index 3b77dee1b..cccbabc29 100644
--- a/libguile/gsubr.c
+++ b/libguile/gsubr.c
@@ -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)