From a25f8d8d21057da29699ea90ba997f1fe8132123 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Feb 1997 06:11:12 +0000
Subject: [PATCH] Add several new operations on vectors.  Eliminate unnecessary
 bindings.

---
 v7/src/runtime/vector.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm
index 4abfca0ac..17fe13697 100644
--- a/v7/src/runtime/vector.scm
+++ b/v7/src/runtime/vector.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: vector.scm,v 14.8 1997/02/23 06:10:13 cph Exp $
+$Id: vector.scm,v 14.9 1997/02/23 06:11:12 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -238,5 +238,5 @@ MIT in each case. |#
       #t))
 
 (define (vector-uniform? vector)
-  (guarantee-subvector vector 'VECTOR-UNIFORM?)
+  (guarantee-vector vector 'VECTOR-UNIFORM?)
   (subvector-uniform? vector 0 (vector-length vector)))
\ No newline at end of file
-- 
2.25.1