summaryrefslogtreecommitdiffstats
path: root/gsubr.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commitc7d035ae1a729232579a0fe41ed5affa131d3623 (patch)
treefb387f7c2a8e01cf603d4c75fbbaa68f711df986 /gsubr.c
parentdeda2c0fd8689349fea2a900199a76ff7ecb319e (diff)
downloadscm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz
scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'gsubr.c')
-rw-r--r--gsubr.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/gsubr.c b/gsubr.c
index f7dd777..d3d7c82 100644
--- a/gsubr.c
+++ b/gsubr.c
@@ -73,7 +73,7 @@ SCM make_gsubr(name, req, opt, rst, fcn)
SCM symcell = sysintern(name, UNDEFINED);
SCM z = scm_maksubr(name, tc7_subr_0, fcn);
SCM cclo = makcclo(f_gsubr_apply, 3L);
- ASSERT(GSUBR_MAX >= req + opt + rst, MAKINUM(req + opt + rst),
+ ASRTER(GSUBR_MAX >= req + opt + rst, MAKINUM(req + opt + rst),
OUTOFRANGE, "make_gsubr");
GSUBR_PROC(cclo) = z;
GSUBR_TYPE(cclo) = MAKINUM(GSUBR_MAKTYPE(req, opt, rst));
@@ -127,6 +127,8 @@ SCM gsubr_apply(args)
}
}
+SCM_DLL_EXPORT void init_gsubr P((void));
+
void init_gsubr()
{
f_gsubr_apply = make_subr(s_gsubr_apply, tc7_lsubr, gsubr_apply);