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

use fixnum-for-every-platform? for case

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-30 15:13:42 -06:00
parent e97c85b79e
commit c5523fef02
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/private/case.rkt
View File

@ -157,7 +157,7 @@
#,exp))] #,exp))]
[exp (if (null? (consts-fixnum ks)) [exp (if (null? (consts-fixnum ks))
exp exp
#`(if (fixnum? #;fixnum-for-every-system? v) #`(if (fixnum-for-every-system? v)
#,(dispatch-fixnum #'v (consts-fixnum ks)) #,(dispatch-fixnum #'v (consts-fixnum ks))
#,exp))]) #,exp))])
exp)]) exp)])
@ -194,7 +194,7 @@
[else [else
(let ([y (syntax->datum (car ys))]) (let ([y (syntax->datum (car ys))])
(cond [(duplicate? y) (inner f s c o (cdr 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))] [(symbol? y) (inner f (add s y idx) c o (cdr ys))]
[(keyword? 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))] [(char? y) (inner f s (add c y idx) o (cdr ys))]