From c8f11b97567020c5cee0c0112dea447d7774da6f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 18 Oct 1998 12:41:43 +0000 Subject: [PATCH] * boot-9.scm: Added extended read syntax for byte vectors #y(...) and short vectors #h(...). --- ice-9/ChangeLog | 5 +++++ ice-9/boot-9.scm | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 123f1511b..d921a4687 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +1998-10-18 Mikael Djurfeldt + + * boot-9.scm: Added extended read syntax for byte vectors #y(...) + and short vectors #h(...). + 1998-10-14 Jim Blandy * calling.scm (excursion-function-syntax): Use a sequence of diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 5dc81a917..5d1cfbabd 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1050,8 +1050,8 @@ (for-each (lambda (char template) (read-hash-extend char (make-array-proc template))) - '(#\b #\a #\u #\e #\s #\i #\c) - '(#t #\a 1 -1 1.0 1/3 0+i))) + '(#\b #\a #\u #\e #\s #\i #\c #\y #\h) + '(#t #\a 1 -1 1.0 1/3 0+i #\nul s))) (let ((array-proc (lambda (c port) (read:array c port)))) (for-each (lambda (char) (read-hash-extend char array-proc))