summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-08-29 21:01:54 -0700
committerAndy Wingo <wingo@pobox.com>2010-08-29 21:01:54 -0700
commit5cc987760bc148a8c753ec2a498ed5ee783f14ec (patch)
treea422981351225995cd3bdd6670697d1559582fbe
parent0142d376b85f963269f8aa1788d92a4910b0b9a9 (diff)
downloadguile-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.
-rw-r--r--module/ice-9/deprecated.scm13
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