From 05c33d09c658469990fa940d91f48a39f1181bf6 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 18 Oct 1998 12:46:27 +0000 Subject: [PATCH] * unif.c (scm_raprin1): Changed print syntax for byte vectors from #bytes(...) to #y(...), and syntax for short vectors from #short(...) to #h(...). This may seem nutty, but, like the other uniform vectors, byte vectors and short vectors want to have the same print and read syntax (and, more basic, want to have read syntax!). Changing the read syntax to use multiple characters after the hash sign breaks with the conventions used in R5RS and the conventions used for the other uniform vectors. It also introduces complexity in the current reader, both on the C and Scheme levels. (The Right solution is probably to change the syntax and prototypes for uniform vectors entirely.) --- libguile/ChangeLog | 14 ++++++++++++++ libguile/unif.c | 4 ++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 85c54d064..3f9252738 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,17 @@ +1998-10-18 Mikael Djurfeldt + + * unif.c (scm_raprin1): Changed print syntax for byte vectors from + #bytes(...) to #y(...), and syntax for short vectors from + #short(...) to #h(...). This may seem nutty, but, like the other + uniform vectors, byte vectors and short vectors want to have the + same print and read syntax (and, more basic, want to have read + syntax!). Changing the read syntax to use multiple characters + after the hash sign breaks with the conventions used in R5RS and + the conventions used for the other uniform vectors. It also + introduces complexity in the current reader, both on the C and + Scheme levels. (The Right solution is probably to change the + syntax and prototypes for uniform vectors entirely.) + 1998-10-17 Jim Blandy Don't use local_fgets on sockets; ftell doesn't work on sockets. diff --git a/libguile/unif.c b/libguile/unif.c index 12e545210..2a8a73e76 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2435,7 +2435,7 @@ tail: scm_putc ('a', port); break; case scm_tc7_byvect: - scm_puts ("bytes", port); + scm_putc ('y', port); break; case scm_tc7_uvect: scm_putc ('u', port); @@ -2444,7 +2444,7 @@ tail: scm_putc ('e', port); break; case scm_tc7_svect: - scm_puts ("short", port); + scm_putc ('h', port); break; #ifdef LONGLONGS case scm_tc7_llvect: