Import Debian changes 5e1-1debian/5e1-1

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

  * New upstream release.  (Closes: #335970)
  * debian/rules (SCM_OPTIONS): Remove -F turtlegr; the file supporting
    this option seems to have gone by the wayside.
  * debian/rules (binary-arch): Don't try to install grtest.scm; it's gone
    now.
    
  * debian/rules (build-stamp): Use tee to capture output of ./build so
    that we can capture a copy of the file in the build log.
    
  * scm.1: Fix spelling errors in manual page:
     verobse -> verbose; 
     qoutes -> quotes;
     aguments -> arguments;
     neccessary -> necessary;
     preceeds -> precedes.
     syncronization -> synchronization.
     (Closes: #300131)
    
  * debian/postinst, debian/prerm: Assume that install-docs is in the
    standard place, and test for it there with test -x.  (Closes: #292996)

1 files changed, 2 insertions, 2 deletions

diff --git a/byte.c b/byte.c
index 1ef014f..457d878 100644
--- a/byte.c
+++ b/byte.c
@@ -119,7 +119,7 @@ SCM scm_bytes_reverse(str)
   ASRTER(NIMP(str) && STRINGP(str), str, ARG1, s_bt_reverse);
   len = LENGTH(str);
   dst = CHARS(str);
-  for(k = len/2;k >= 0;k--) {
+  for(k = (len - 1)/2;k >= 0;k--) {
     int tmp = dst[k];
     dst[k] = dst[len - k - 1];
     dst[len - k - 1] = tmp;
@@ -187,7 +187,7 @@ SCM scm_substring_read(sstr, start, args)
   }
   else {
     long idx = start;
-    while (end <= idx) {
+    while (end < idx) {
       int chr = lgetc(port);
       if (EOF==chr) return MAKINUM(start - idx);
       CHARS(sstr)[--idx] = chr;