From 337061d8c40bb4faf09e2dc2d584b2620428c90a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Oct 2009 14:48:28 +0000 Subject: [PATCH] fix macro for 'fxarithmetic-shift-...' (PR 10504) svn: r16236 --- collects/rnrs/arithmetic/fixnums-6.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/rnrs/arithmetic/fixnums-6.ss b/collects/rnrs/arithmetic/fixnums-6.ss index b9114ba47a..e9ba199a4a 100644 --- a/collects/rnrs/arithmetic/fixnums-6.ss +++ b/collects/rnrs/arithmetic/fixnums-6.ss @@ -162,9 +162,9 @@ [(_ a b) (let ([t1 a] [t2 b]) - (if (and (fixnum? a) - (and (exact-integer? b) (<= lower-bound b (- (fixnum-width) 1)))) - (let ([v (arithmetic-shift a (adjust b))]) + (if (and (fixnum? t1) + (and (exact-integer? t2) (<= lower-bound t2 (- (fixnum-width) 1)))) + (let ([v (arithmetic-shift t1 (adjust t2))]) (if (fixnum? v) v (r6rs:fxarithmetic-shift t1 t2)))