From: Panayotis Skordos <edu/mit/csail/zurich/pas>
Date: Tue, 13 Oct 1987 03:42:27 +0000 (+0000)
Subject: Fixed typo in C_Image_Periodic_Shift: "-" should be "+" for negative
X-Git-Tag: 20090517-FFI~13079
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=750c3bcee191f3ec269b21b5cb0c4938f330b0cc;p=mit-scheme.git

Fixed typo in C_Image_Periodic_Shift: "-" should be "+" for negative
shifts. The bug had not detected because positive shifts worked just
fine.
---

diff --git a/v7/src/microcode/image.c b/v7/src/microcode/image.c
index bc6e23330..2e1bd0d7e 100644
--- a/v7/src/microcode/image.c
+++ b/v7/src/microcode/image.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/image.c,v 9.23 1987/08/10 20:27:42 pas Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/image.c,v 9.24 1987/10/13 03:42:27 pas Exp $ */
 
 #include "scheme.h"
 #include "primitive.h"
@@ -611,9 +611,9 @@ C_Image_Periodic_Shift(Array, New_Array, nrows, ncols, ver_shift, hor_shift)
   for (i=0;i<nrows;i++) { 
     for (j=0;j<ncols;j++) {
       ver_index = (i+ver_shift) % nrows;
-      if (ver_index<0) ver_index = nrows-ver_index;             /* wrapping around */
+      if (ver_index<0) ver_index = nrows+ver_index;             /* wrapping around */
       hor_index = (j+hor_shift) % ncols;
-      if (hor_index<0) hor_index = ncols-hor_index;
+      if (hor_index<0) hor_index = ncols+hor_index;
       *To_Here++ = Array[ver_index*ncols + hor_index];
     }}
 }