From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 28 Nov 2018 16:55:06 +0000 (+0000)
Subject: Merge these cases again now that the xfails are fixed.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~139
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bad6d23687a67b7c31b3b4cb75701929a09396db;p=mit-scheme.git

Merge these cases again now that the xfails are fixed.
---

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index bf949d251..83c5f3cc0 100644
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -368,18 +368,7 @@ USA.
     (+inf.0 #t #f)
     (+nan.0 #f #f)))
 
-(define-lconstcomp-test '>=/lconst flo:safe>= flo:>= 0.
-  `((-inf.0 #t #f)
-    (-1. #t #f)
-    (,subnormal- #t #f)
-    (-0. #t #t)
-    (+0. #t #t)
-    (,subnormal+ #f #t)
-    (+1. #f #t)
-    (+inf.0 #f #t)
-    (+nan.0 #f #f)))
-
-(define-rconstcomp-test '>=/rconst flo:safe>= flo:>= 0.
+(define-constcomp-test '>= flo:safe>= flo:>= 0.
   `((-inf.0 #t #f)
     (-1. #t #f)
     (,subnormal- #t #f)
@@ -434,18 +423,7 @@ USA.
     (+inf.0 #t #f)
     (+nan.0 #f #f)))
 
-(define-lconstcomp-test '>=/lconst flo:safe>= flo:>= 1.
-  `((-inf.0 #t #f)
-    (-1. #t #f)
-    (,subnormal- #t #f)
-    (-0. #t #f)
-    (+0. #t #f)
-    (,subnormal+ #t #f)
-    (+1. #t #t)
-    (+inf.0 #f #t)
-    (+nan.0 #f #f)))
-
-(define-rconstcomp-test '>=/rconst flo:safe>= flo:>= 1.
+(define-constcomp-test '>= flo:safe>= flo:>= 1.
   `((-inf.0 #t #f)
     (-1. #t #f)
     (,subnormal- #t #f)