From 204b5cb52e7adaf58b42693b03aff99fe8e559e9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 11 Jun 2019 20:00:20 -0600 Subject: [PATCH] remove use of `tests/racket/maybe-single` in a module The `tests/racket/maybe-single` reader should be used only in ".rktl" test files, but I had used it in a ".rkt" test file. --- pkgs/racket-test/tests/racket/contract/flat-contracts.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test/tests/racket/contract/flat-contracts.rkt b/pkgs/racket-test/tests/racket/contract/flat-contracts.rkt index 79abcee0a5..fb3dce0960 100644 --- a/pkgs/racket-test/tests/racket/contract/flat-contracts.rkt +++ b/pkgs/racket-test/tests/racket/contract/flat-contracts.rkt @@ -107,10 +107,9 @@ (test-flat-contract #e1 #i1.0 'x #:skip-predicate-checks? #t) (test-flat-contract +nan.0 +nan.0 +inf.0 #:skip-predicate-checks? #t) (test-flat-contract +inf.0 +inf.0 +nan.0 #:skip-predicate-checks? #t) - #reader tests/racket/maybe-single (when (single-flonum-available?) - (test-flat-contract +nan.0 +nan.0 +nan.f #:skip-predicate-checks? #t) - (test-flat-contract +nan.f +nan.f +nan.0 #:skip-predicate-checks? #t)) + (test-flat-contract +nan.0 +nan.0 (real->single-flonum +nan.0) #:skip-predicate-checks? #t) + (test-flat-contract (real->single-flonum +nan.0) (real->single-flonum +nan.0) +nan.0 #:skip-predicate-checks? #t)) (test-flat-contract #rx".x." "axq" "x" #:skip-predicate-checks? #t) (test-flat-contract #rx#".x." #"axq" #"x" #:skip-predicate-checks? #t) (test-flat-contract #rx".x." #"axq" #"x" #:skip-predicate-checks? #t)