From c5523fef028ccb3967a8cfd872e8ca6881ad5c48 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 30 Jun 2019 15:13:42 -0600 Subject: [PATCH] use `fixnum-for-every-platform?` for `case` --- racket/collects/racket/private/case.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/case.rkt b/racket/collects/racket/private/case.rkt index 8aba59a955..48f634a18a 100644 --- a/racket/collects/racket/private/case.rkt +++ b/racket/collects/racket/private/case.rkt @@ -157,7 +157,7 @@ #,exp))] [exp (if (null? (consts-fixnum ks)) exp - #`(if (fixnum? #;fixnum-for-every-system? v) + #`(if (fixnum-for-every-system? v) #,(dispatch-fixnum #'v (consts-fixnum ks)) #,exp))]) exp)]) @@ -194,7 +194,7 @@ [else (let ([y (syntax->datum (car ys))]) (cond [(duplicate? y) (inner f s c o (cdr ys))] - [(fixnum? #;fixnum-for-every-system? y) (inner (add f y idx) s c o (cdr ys))] + [(fixnum-for-every-system? y) (inner (add f y idx) s c o (cdr ys))] [(symbol? y) (inner f (add s y idx) c o (cdr ys))] [(keyword? y) (inner f (add s y idx) c o (cdr ys))] [(char? y) (inner f s (add c y idx) o (cdr ys))]