From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 15 Mar 1991 23:30:49 +0000 (+0000)
Subject: Use `modulo' instead of `remainder' to force ring indexes into the
X-Git-Tag: 20090517-FFI~10849
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e0b10e41d2fea3d9ca2a27e7755c356b7bbb451e;p=mit-scheme.git

Use `modulo' instead of `remainder' to force ring indexes into the
right range.  `remainder' is incorrect if the argument is negative.
---

diff --git a/v7/src/edwin/ring.scm b/v7/src/edwin/ring.scm
index 5031ecb66..31f17fd40 100644
--- a/v7/src/edwin/ring.scm
+++ b/v7/src/edwin/ring.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/ring.scm,v 1.9 1989/04/28 22:52:56 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/ring.scm,v 1.10 1991/03/15 23:30:49 cph Exp $
 ;;;
-;;;	Copyright (c) 1984, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1984, 1989-91 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -112,10 +112,10 @@
 
 (set! ring-ref
 (named-lambda (ring-ref ring index)
-  (list-ref (vector-ref ring 2) (remainder index (ring-size ring)))))
+  (list-ref (vector-ref ring 2) (modulo index (ring-size ring)))))
 
 (set! ring-set!
 (named-lambda (ring-set! ring index object)
-  (list-set! (vector-ref ring 2) (remainder index (ring-size ring)) object)))
+  (list-set! (vector-ref ring 2) (modulo index (ring-size ring)) object)))
 
 )
\ No newline at end of file