mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* unif.c (scm_raprin1): Changed print syntax for byte vectors from

Browse source 
#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.)
This commit is contained in:
Mikael Djurfeldt 1998-10-18 12:46:27 +00:00
parent c8f11b9756
commit 05c33d09c6
2 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/ChangeLog
View file

@ -1,3 +1,17 @@
1998-10-18 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* 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 <jimb@savonarola.red-bean.com>
Don't use local_fgets on sockets; ftell doesn't work on sockets.

4
libguile/unif.c
View file

@ -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: