Import Upstream version 5d9upstream/5d9

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);