From c2132276b81337b9b483b32fec434650a18dc449 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sat, 15 Feb 1997 18:48:12 +0000 Subject: [PATCH] * 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 | 10 ++++++++++ ice-9/boot-9.scm | 8 ++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 6f3002e31..ecbb2fb5f 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,13 @@ +Sat Feb 15 04:51:20 1997 Gary Houston + + * boot-9.scm (read-sharp): define directly, don't go through a + %read-sharp layer. + +Tue Feb 11 08:45:48 1997 Gary Houston + + * 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 * boot-9.scm (backtrace): Removed. (A C version now exists in diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 5a695f967..2decf16ca 100644 --- a/ice-9/boot-9.scm +++ b/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} ;;;