* boot-9.scm (read-sharp): define directly, don't go through a

%read-sharp layer.
* boot-9.scm (uniform-vector-set!): use uniform-array-set1!, not
uniform-vector-set1! which doesn't exist.

ice-9/ChangeLog

@@ -1,3 +1,13 @@
+Sat Feb 15 04:51:20 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+	* boot-9.scm (read-sharp): define directly, don't go through a
+	%read-sharp layer.
+
+Tue Feb 11 08:45:48 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+	* boot-9.scm (uniform-vector-set!): use uniform-array-set1!, not
+	uniform-vector-set1! which doesn't exist.
+
 Mon Feb 10 03:01:48 1997  Mikael Djurfeldt  <mdj@kenneth>
 
 	* boot-9.scm (backtrace): Removed.  (A C version now exists in

ice-9/boot-9.scm

@@ -284,7 +284,7 @@
   (define make-uniform-vector dimensions->uniform-array)
   ;      (define uniform-vector-ref array-ref)
   (define (uniform-vector-set! u i o)
-    (uniform-vector-set1! u o i))
+    (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)
@@ -940,7 +940,6 @@
 (define end-of-program #f)
 (define hang-up #f)
 (define arithmetic-error #f)
-(define read-sharp #f)
 
 
 
@@ -965,7 +964,7 @@
 				     (map string->symbol fields))))
 	 
 
-(define (%read-sharp c port)
+(define (read-sharp c port)
   (define (barf)
     (error "unknown # object" c))
 
@@ -1018,9 +1017,6 @@
       (error "read:uniform-vector list not found")))
 
 
-(define read-sharp (lambda a (apply %read-sharp a)))
-
-
 
 ;;; {Dynamic Roots}
 ;;;