From 5cc987760bc148a8c753ec2a498ed5ee783f14ec Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 29 Aug 2010 21:01:54 -0700 Subject: [PATCH] fix #y back-compat shim * module/ice-9/deprecated.scm (#\y): #y was in fact a syntax for s8vectors, not bitvectors. Fix. --- module/ice-9/deprecated.scm | 13 +++---------- 1 file 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