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

Chez Scheme: repair pseudo-random for cross compile

Browse Source
This commit is contained in:
Matthew Flatt 2020-08-23 16:19:25 -06:00
parent 8d96a758d0
commit 71bf119460
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/ChezScheme/s/5_3.ss
View File

@ -2780,7 +2780,7 @@
[(fixnum? x)
(unless (fxpositive? x) ($oops who "not a positive exact integer ~s" x))
(meta-cond
[(fixnum? 4294967087)
[(<= (constant most-negative-fixnum) 4294967087 (constant most-positive-fixnum))
(if (fx< x 4294967087)
(random-int s x)
(random-integer s x))]