From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Feb 1997 06:10:13 +0000 (+0000)
Subject: Add several new operations on vectors.  Eliminate unnecessary
X-Git-Tag: 20090517-FFI~5252
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2cd665fbf127ab20edbeca7eb3b4ac7b9238e2af;p=mit-scheme.git

Add several new operations on vectors.  Eliminate unnecessary
bindings.
---

diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm
index 46c84b7ff..4abfca0ac 100644
--- a/v7/src/runtime/vector.scm
+++ b/v7/src/runtime/vector.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: vector.scm,v 14.7 1997/02/22 07:49:39 cph Exp $
+$Id: vector.scm,v 14.8 1997/02/23 06:10:13 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -228,7 +228,7 @@ MIT in each case. |#
 	     (loop (fix:+ index 1))))))
 
 (define (vector-filled? vector element)
-  (guarantee-subvector vector 'VECTOR-FILLED?)
+  (guarantee-vector vector 'VECTOR-FILLED?)
   (subvector-filled? vector 0 (vector-length vector) element))
 
 (define (subvector-uniform? vector start end)