From b8617c24e93adddcbbf33f9e47951146a3575e74 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 4 Jun 2019 09:27:44 -0600 Subject: [PATCH] unbreak cify build --- racket/src/cify/generate.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/src/cify/generate.rkt b/racket/src/cify/generate.rkt index 020ecc7f51..37fac36744 100644 --- a/racket/src/cify/generate.rkt +++ b/racket/src/cify/generate.rkt @@ -991,11 +991,11 @@ [(eqv? e +inf.0) "scheme_inf_object"] [(eqv? e -inf.0) "scheme_minus_inf_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"] - [(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"] - [(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"] [else (format "scheme_make_double(~a)" e)])]