diff options
author | Andy Wingo <wingo@pobox.com> | 2010-08-29 21:01:54 -0700 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-08-29 21:01:54 -0700 |
commit | 5cc987760bc148a8c753ec2a498ed5ee783f14ec (patch) | |
tree | a422981351225995cd3bdd6670697d1559582fbe /module/ice-9/deprecated.scm | |
parent | 0142d376b85f963269f8aa1788d92a4910b0b9a9 (diff) | |
download | guile-5cc987760bc148a8c753ec2a498ed5ee783f14ec.tar.gz |
fix #y back-compat shim
* module/ice-9/deprecated.scm (#\y): #y was in fact a syntax for
s8vectors, not bitvectors. Fix.
Diffstat (limited to 'module/ice-9/deprecated.scm')
-rw-r--r-- | module/ice-9/deprecated.scm | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm index d6cc3b9dc..c0fa92168 100644 --- a/module/ice-9/deprecated.scm +++ b/module/ice-9/deprecated.scm @@ -250,18 +250,11 @@ #\y (lambda (c port) (issue-deprecation-warning - "The `#y' bitvector syntax is deprecated. Use `#*' instead.") + "The `#y' bytevector syntax is deprecated. Use `#s8' instead.") (let ((x (read port))) (cond - ((list? x) - (list->bitvector - (map (lambda (x) - (cond ((zero? x) #f) - ((eqv? x 1) #t) - (else (error "invalid #y element" x)))) - x))) - (else - (error "#y needs to be followed by a list" x)))))) + ((list? x) (list->s8vector x)) + (else (error "#y needs to be followed by a list" x)))))) (define (unmemoize-expr . args) (issue-deprecation-warning |