(uniform-vector?, uniform-vector-set!): Removed, now provided by

libguile.

diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm
index ae711d0..7562a22 100644 (file)
--- a/ice-9/arrays.scm
+++ b/ice-9/arrays.scm
@@ -18,13 +18,8 @@
 ;;;; Boston, MA 02111-1307 USA
 ;;;; 
 
-(define uniform-vector? array?)
 (define make-uniform-vector dimensions->uniform-array)
 
-;;  (define uniform-vector-ref array-ref)
-
-(define (uniform-vector-set! u i o)
-  (uniform-array-set1! u o i))
 (define uniform-vector-fill! array-fill!)
 (define uniform-vector-read! uniform-array-read!)
 (define uniform-vector-write uniform-array-write)