From bf8a5c60c314c49cb85ab578f9b3399af5d48215 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 19 Aug 1995 15:33:40 +0000
Subject: [PATCH] Replaced a VECTOR-REF with a %vector-ref.

---
 v8/src/compiler/midend/widen.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))
-- 
2.25.1