From 71bf119460dc7bbca4f5fac207de1c786e72cf6a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 23 Aug 2020 16:19:25 -0600 Subject: [PATCH] Chez Scheme: repair pseudo-random for cross compile --- racket/src/ChezScheme/s/5_3.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/ChezScheme/s/5_3.ss b/racket/src/ChezScheme/s/5_3.ss index af6ff11aec..35ed249623 100644 --- a/racket/src/ChezScheme/s/5_3.ss +++ b/racket/src/ChezScheme/s/5_3.ss @@ -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))]