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

unbreak cify build

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-04 09:27:44 -06:00
parent 758e02fa39
commit b8617c24e9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/cify/generate.rkt
View File

@ -991,11 +991,11 @@
[(eqv? e +inf.0) "scheme_inf_object"] [(eqv? e +inf.0) "scheme_inf_object"]
[(eqv? e -inf.0) "scheme_minus_inf_object"] [(eqv? e -inf.0) "scheme_minus_inf_object"]
[(eqv? e +nan.0) "scheme_nan_object"] [(eqv? e +nan.0) "scheme_nan_object"]
[(and (sinfle-flonum-available?) (eqv? e (real->single-flonum +inf.0))) [(and (single-flonum-available?) (eqv? e (real->single-flonum +inf.0)))
"scheme_single_inf_object"] "scheme_single_inf_object"]
[(and (sinfle-flonum-available?) (eqv? e (real->single-flonum -inf.0))) [(and (single-flonum-available?) (eqv? e (real->single-flonum -inf.0)))
"scheme_single_minus_inf_object"] "scheme_single_minus_inf_object"]
[(and (sinfle-flonum-available?) (eqv? e (real->single-flonum +nan.0))) [(and (single-flonum-available?) (eqv? e (real->single-flonum +nan.0)))
"scheme_single_nan_object"] "scheme_single_nan_object"]
[else [else
(format "scheme_make_double(~a)" e)])] (format "scheme_make_double(~a)" e)])]