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 92846b4471dac90f83842be7ce1c892aa8ad0d62..f9b96905bce4c21d12cd451e8cd3b8933c40921c 100644 (file)
--- 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))