Import Debian changes 5d9-4.1debian/5d9-4.1

scm (5d9-4.1) unstable; urgency=high

  * Non-maintainer upload.
  * High-urgency upload for sarge-targetted RC bugfix.
  * Revert upstream "CAUTIOUS" define, which causes the scm build to
    fail its test suite on alpha (and, it appears, powerpc as well).
    Closes: #245810.

scm (5d9-4) unstable; urgency=low

  * Apply patch from 144062 to fix hppa build (Closes: #144062)
  * Change scm.1 section from Jan 4 200 to 1. (lintian)

scm (5d9-3) unstable; urgency=low

  * Properly clean up info files.
  * Make and install Xlibscm.info.

scm (5d9-2) unstable; urgency=low

  * Fix path problem in slibcat.  Hack at mklibcat.scm.  (Closes: #241510)

scm (5d9-1) unstable; urgency=low

  * New upstream release
  * Merge NMU sparc changes (Closes: #191171, #191356)
  * SHORT_INT is defined for ia64 upstream (Closes: #141928)
  * Scheme imps now grouped in info file (has been for a while)
  (Closes: #115452)

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