From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Thu, 19 May 1988 15:39:50 +0000 (+0000)
Subject: open coded vector-ref and vector-set! for non-constant
X-Git-Tag: 20090517-FFI~12749
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8071ad692ff21672cf0f0fa0c51c0e37ecd37736;p=mit-scheme.git

open coded vector-ref and vector-set! for non-constant
indices.
---

diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index f5b3e41ff..9ce7d05ef 100644
--- a/v7/src/compiler/machines/bobcat/make.scm-68040
+++ b/v7/src/compiler/machines/bobcat/make.scm-68040
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.14 1988/05/14 16:17:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.15 1988/05/19 15:39:50 markf Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -44,12 +44,12 @@ MIT in each case. |#
     (make-environment
       (define :name "Liar (Bobcat 68020)")
       (define :version 4)
-      (define :modification 14)
+      (define :modification 15)
       (define :files)
 
       (define :rcs-header
 
-	"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.14 1988/05/14 16:17:11 jinx Exp $"
+	"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.15 1988/05/19 15:39:50 markf Exp $"
 
 	)
       (define :files-lists