From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 19 Aug 1995 15:33:40 +0000 (+0000)
Subject: Replaced a VECTOR-REF with a %vector-ref.
X-Git-Tag: 20090517-FFI~6018
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf8a5c60c314c49cb85ab578f9b3399af5d48215;p=mit-scheme.git

Replaced a VECTOR-REF with a %vector-ref.
---

diff --git a/v8/src/compiler/midend/widen.scm b/v8/src/compiler/midend/widen.scm
index 92846b447..f9b96905b 100644
--- a/v8/src/compiler/midend/widen.scm
+++ b/v8/src/compiler/midend/widen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: widen.scm,v 1.8 1995/08/18 18:09:35 adams Exp $
+$Id: widen.scm,v 1.9 1995/08/19 15:33:40 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -475,7 +475,7 @@ MIT in each case. |#
 	    (if (negative? m)
 		result
 		(loop (- m 1)
-		      `((CALL ',vector-ref '#F ,expr ',m) . ,result)))))))
+		      `((CALL ',%vector-ref '#F ,expr ',m) . ,result)))))))
 
 (define (no-CONT-allowed cont)
   (if (not (equal? CONT ''#F))