suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix macro for 'fxarithmetic-shift-...' (PR 10504)

Browse Source 
svn: r16236
This commit is contained in:
Matthew Flatt 2009-10-04 14:48:28 +00:00
parent 21d0745fa8
commit 337061d8c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/rnrs/arithmetic/fixnums-6.ss
View File

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