From c7d035ae1a729232579a0fe41ed5affa131d3623 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:27 -0800
Subject: Import Upstream version 5d9

---
 gsubr.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'gsubr.c')

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);
-- 
cgit v1.2.3