From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 29 Nov 2018 02:43:50 +0000 (+0000)
Subject: Make the signature of define-enumerated-test match everyone else.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~125
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7cbdf9dd772e50519ce29fba42ba08e270056538;p=mit-scheme.git

Make the signature of define-enumerated-test match everyone else.

Not sure why I used vectors here in the first place.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index eefe322e5..bc5c24310 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -79,14 +79,17 @@ USA.
       (body)
       (xfail body)))
 
-(define (define-enumerated-test prefix elements procedure)
-  (let ((n (vector-length elements)))
-    (do ((i 0 (+ i 1))) ((>= i n))
-      (define-test (symbol prefix '/ (vector-ref elements i))
-        (lambda ()
-          (procedure (vector-ref elements i)))))))
+(define (define-enumerated-test prefix cases procedure)
+  (for-each (lambda (arguments)
+              (define-test (symbol prefix '/ arguments)
+                (lambda ()
+                  (apply procedure arguments))))
+            cases))
 
-(define (define-enumerated^2-test* prefix elements procedure)
+(define (define-venumerated-test prefix elements procedure)
+  (define-enumerated-test prefix (map list (vector->list elements)) procedure))
+
+(define (define-venumerated^2-test* prefix elements procedure)
   (let ((n (vector-length elements)))
     (do ((i 0 (+ i 1))) ((>= i n))
       (do ((j 0 (+ j 1))) ((>= j n))
@@ -98,15 +101,15 @@ USA.
             (procedure i (vector-ref elements i)
                        j (vector-ref elements j))))))))
 
-(define (define-enumerated^2-test prefix elements procedure)
-  (define-enumerated^2-test* prefix elements
+(define (define-venumerated^2-test prefix elements procedure)
+  (define-venumerated^2-test* prefix elements
     (lambda (i vi j vj)
       i j                               ;ignore
       (procedure vi vj))))
 
-(define-enumerated^2-test 'ZEROS-ARE-EQUAL (vector -0. 0 +0.) =)
+(define-venumerated^2-test 'ZEROS-ARE-EQUAL (vector -0. 0 +0.) =)
 
-(define-enumerated^2-test* 'ORDER-WITH-INFINITIES
+(define-venumerated^2-test* 'ORDER-WITH-INFINITIES
   (vector (flo:-inf.0) -2. -1 -0.5 0 +0.5 +1 +2. (flo:+inf.0))
   (lambda (i vi j vj)
     (if (< i j)
@@ -114,57 +117,57 @@ USA.
 	(assert-false (< vi vj)))))
 
 (let ((elements (vector (flo:-inf.0) -2. -1 -0. 0 +0. +1 +2. (flo:+inf.0))))
-  (define-enumerated-test '!NAN<X elements
+  (define-venumerated-test '!NAN<X elements
     (lambda (v) (assert-false (< (flo:nan.0) v))))
-  (define-enumerated-test '!X<NAN elements
+  (define-venumerated-test '!X<NAN elements
     (lambda (v) (assert-false (< v (flo:nan.0))))))
 (let ((elements (vector -2. -1 -0. 0 +0. +1 +2.)))
 
-  (define-enumerated-test 'MIN-INF-/X elements
+  (define-venumerated-test 'MIN-INF-/X elements
     (lambda (v) (assert-= (min (flo:-inf.0) v) (flo:-inf.0))))
-  (define-enumerated-test 'MIN-INF+/X elements
+  (define-venumerated-test 'MIN-INF+/X elements
     (lambda (v) (assert-= (min (flo:+inf.0) v) v)))
-  (define-enumerated-test 'MIN-X/INF- elements
+  (define-venumerated-test 'MIN-X/INF- elements
     (lambda (v) (assert-= (min v (flo:-inf.0)) (flo:-inf.0))))
-  (define-enumerated-test 'MIN-X/INF+ elements
+  (define-venumerated-test 'MIN-X/INF+ elements
     (lambda (v) (assert-= (min v (flo:+inf.0)) v)))
 
-  (define-enumerated-test 'MAX-INF-/X elements
+  (define-venumerated-test 'MAX-INF-/X elements
     (lambda (v) (assert-= (max (flo:-inf.0) v) v)))
-  (define-enumerated-test 'MAX-INF+/X elements
+  (define-venumerated-test 'MAX-INF+/X elements
     (lambda (v) (assert-= (max (flo:+inf.0) v) (flo:+inf.0))))
-  (define-enumerated-test 'MAX-X/INF- elements
+  (define-venumerated-test 'MAX-X/INF- elements
     (lambda (v) (assert-= (max v (flo:-inf.0)) v)))
-  (define-enumerated-test 'MAX-X/INF+ elements
+  (define-venumerated-test 'MAX-X/INF+ elements
     (lambda (v) (assert-= (max v (flo:+inf.0)) (flo:+inf.0)))))
 
 (let ((elements (vector (flo:-inf.0) -2. -1 -0. 0 +0. +1 +2. (flo:+inf.0))))
-  (define-enumerated-test 'MIN-NAN/X elements
+  (define-venumerated-test 'MIN-NAN/X elements
     (lambda (v) (assert-= (min (flo:nan.0) v) v)))
-  (define-enumerated-test 'MIN-X/NAN elements
+  (define-venumerated-test 'MIN-X/NAN elements
     (lambda (v) (assert-= (min v (flo:nan.0)) v)))
-  (define-enumerated-test 'MAX-NAN/X elements
+  (define-venumerated-test 'MAX-NAN/X elements
     (lambda (v) (assert-= (max (flo:nan.0) v) v)))
-  (define-enumerated-test 'MAX-X/NAN elements
+  (define-venumerated-test 'MAX-X/NAN elements
     (lambda (v) (assert-= (max v (flo:nan.0)) v))))
 
-(define-enumerated-test 'NAN*X
+(define-venumerated-test 'NAN*X
   (vector (flo:-inf.0) -2. -1 -0. 0 +0. +1 +2. (flo:+inf.0))
   (lambda (v) (assert-nan (* (flo:nan.0) v))))
 
-(define-enumerated-test 'X*NAN
+(define-venumerated-test 'X*NAN
   (vector (flo:-inf.0) -2. -1 -0. 0 +0. +1 +2. (flo:+inf.0))
   (lambda (v) (assert-nan (* v (flo:nan.0)))))
 
-(define-enumerated-test 'NAN/X
+(define-venumerated-test 'NAN/X
   (vector (flo:-inf.0) -2. -1 -0. 0 +0. +1 +2. (flo:+inf.0))
   (lambda (v) (assert-nan (/ (flo:nan.0) v))))
 
-(define-enumerated-test 'X/NAN
+(define-venumerated-test 'X/NAN
   (vector (flo:-inf.0) -2. -1 -0. 0 +0. +1 +2. (flo:+inf.0))
   (lambda (v) (assert-nan (/ v (flo:nan.0)))))
 
-(define-enumerated-test 'nan-order
+(define-venumerated-test 'nan-order
   (vector 0 0. -0. 1 1. -1 -1. (flo:-inf.0) (flo:+inf.0) (flo:nan.0))
   (lambda (x)
     (let ((id identity-procedure))
@@ -190,15 +193,23 @@ USA.
       (assert-false (<= (flo:nan.0) x)))))
 
 (define-enumerated-test 'inf*0-exact
-  (vector (list 0 (flo:+inf.0))
-          (list 0 (flo:-inf.0))
-          (list (flo:+inf.0) 0)
-          (list (flo:-inf.0) 0))
-  (lambda (l)
-    (assert-nan (apply * l))))
+  (list (list 0 (flo:+inf.0))
+        (list 0 (flo:-inf.0))
+        (list (flo:+inf.0) 0)
+        (list (flo:-inf.0) 0))
+  (lambda (x y)
+    (assert-nan (* x y))))
 
 (define-enumerated-test 'polar0-real
-  (vector 0 0. -0. 1 1. -1. (flo:+inf.0) (flo:-inf.0))
+  (list
+   (list 0)
+   (list 0.)
+   (list -0.)
+   (list 1)
+   (list 1.)
+   (list -1.)
+   (list (flo:+inf.0))
+   (list (flo:-inf.0)))
   (lambda (magnitude)
     (assert-real (make-polar magnitude 0))))
 
@@ -207,49 +218,47 @@ USA.
     (assert-nan (make-polar (flo:nan.0) 0))))
 
 (define-enumerated-test 'flo:ulp
-  (vector
-   (vector (flo:-inf.0) (flo:+inf.0))
-   (vector (+ -3. (* 2 flo:ulp-of-one)) (* 2 flo:ulp-of-one))
-   (vector -3. (* 2 flo:ulp-of-one))
-   (vector -2. (* 2 flo:ulp-of-one))
-   (vector -1. flo:ulp-of-one)
-   (vector -0. "4.9406564584124654e-324")
-   (vector 0. "4.9406564584124654e-324")
-   (vector 1. flo:ulp-of-one)
-   (vector 2. (* 2 flo:ulp-of-one))
-   (vector 3. (* 2 flo:ulp-of-one))
-   (vector (- 3. (* 2 flo:ulp-of-one)) (* 2 flo:ulp-of-one))
-   (vector (flo:+inf.0) (flo:+inf.0)))
-  (lambda (v)
-    (let ((x (vector-ref v 0))
-          (u (vector-ref v 1)))
-      (flo:with-trapped-exceptions 0
-        (lambda ()
-          (let ((u
-                 (if (string? u)
-                     (string->number u)
-                     u)))
-            (assert-eqv (flo:ulp x) u)))))))
+  (list
+   (list (flo:-inf.0) (flo:+inf.0))
+   (list (+ -3. (* 2 flo:ulp-of-one)) (* 2 flo:ulp-of-one))
+   (list -3. (* 2 flo:ulp-of-one))
+   (list -2. (* 2 flo:ulp-of-one))
+   (list -1. flo:ulp-of-one)
+   (list -0. "4.9406564584124654e-324")
+   (list 0. "4.9406564584124654e-324")
+   (list 1. flo:ulp-of-one)
+   (list 2. (* 2 flo:ulp-of-one))
+   (list 3. (* 2 flo:ulp-of-one))
+   (list (- 3. (* 2 flo:ulp-of-one)) (* 2 flo:ulp-of-one))
+   (list (flo:+inf.0) (flo:+inf.0)))
+  (lambda (x u)
+    (flo:with-trapped-exceptions 0
+      (lambda ()
+        (let ((u
+               (if (string? u)
+                   (string->number u)
+                   u)))
+          (assert-eqv (flo:ulp x) u))))))
 
 (define-enumerated-test 'log1p-exact
-  (vector
-   (cons 0 0)
-   (cons 1 (log 2))
-   (cons (- (exp 1) 1) 1.)
-   (cons (expt 2 -53) (expt 2. -53))
-   (cons (- (expt 2 -53)) (- (expt 2. -53))))
-  (lambda (v)
-    (assert-eqv (cdr v) (log1p (car v)))))
+  (list
+   (list 0 0)
+   (list 1 (log 2))
+   (list (- (exp 1) 1) 1.)
+   (list (expt 2 -53) (expt 2. -53))
+   (list (- (expt 2 -53)) (- (expt 2. -53))))
+  (lambda (x y)
+    (assert-eqv (log1p x) y)))
 
 (define-enumerated-test 'expm1-exact
-  (vector
-   (cons 0 0)
-   (cons (log 2) 1.)
-   (cons 1 (- (exp 1) 1))
-   (cons (expt 2 -53) (expt 2. -53))
-   (cons (- (expt 2 -53)) (- (expt 2. -53))))
-  (lambda (v)
-    (assert-eqv (cdr v) (expm1 (car v)))))
+  (list
+   (list 0 0)
+   (list (log 2) 1.)
+   (list 1 (- (exp 1) 1))
+   (list (expt 2 -53) (expt 2. -53))
+   (list (- (expt 2 -53)) (- (expt 2. -53))))
+  (lambda (x y)
+    (assert-eqv (expm1 x) y)))
 
 (define (relerr e a)
   (if (or (zero? e) (infinite? e))
@@ -257,18 +266,18 @@ USA.
       (magnitude (/ (- e a) e))))
 
 (define-enumerated-test 'expm1-approx
-  (vector
-   (cons -0.7 -0.5034146962085905)
-   (cons (- (log 2)) -0.5)
-   (cons -0.6 -0.45118836390597356)
-   (cons 0.6 .8221188003905089)
-   (cons (log 2) 1.)
-   (cons 0.7 1.0137527074704766))
-  (lambda (v)
-    (assert-<= (relerr (cdr v) (expm1 (car v))) 1e-15)))
+  (list
+   (list -0.7 -0.5034146962085905)
+   (list (- (log 2)) -0.5)
+   (list -0.6 -0.45118836390597356)
+   (list 0.6 .8221188003905089)
+   (list (log 2) 1.)
+   (list 0.7 1.0137527074704766))
+  (lambda (x y)
+    (assert-<= (relerr y (expm1 x)) 1e-15)))
 
 (define-enumerated-test 'log1p-approx
-  (vector
+  (list
    (list -0.3 -.35667494393873245)
    (list (- (sqrt 1/2) 1) -0.34657359027997264)
    (list -0.25 -.2876820724517809)
@@ -276,13 +285,10 @@ USA.
    (list (- 1 (sqrt 1/2)) 0.25688251232181475)
    (list 0.3 .26236426446749106)
    (list -2 +3.141592653589793i))
-  (lambda (v)
-    (let ((x (car v))
-          (z (cadr v))
-          (xfail (if (pair? (cddr v)) (caddr v) #!default)))
-      (with-expected-failure xfail
-        (lambda ()
-          (assert-<= (relerr z (log1p x)) 1e-15))))))
+  (lambda (x y #!optional xfail)
+    (with-expected-failure xfail
+      (lambda ()
+        (assert-<= (relerr y (log1p x)) 1e-15)))))
 
 (define-test 'log1p-inf
   (lambda ()
@@ -290,73 +296,69 @@ USA.
     (assert-inf- (log1p -1.))))
 
 (define-enumerated-test 'log1mexp
-  (vector
-   (cons -1e-17 -39.1439465808987777)
-   (cons -0.69 -0.696304297144056727)
-   (cons (- (log 2)) (- (log 2)))
-   (cons -0.70 -0.686341002808385170)
-   (cons -708 -3.30755300363840783e-308))
-  (lambda (v)
-    (assert-<= (relerr (cdr v) (log1mexp (car v))) 1e-15)))
+  (list
+   (list -1e-17 -39.1439465808987777)
+   (list -0.69 -0.696304297144056727)
+   (list (- (log 2)) (- (log 2)))
+   (list -0.70 -0.686341002808385170)
+   (list -708 -3.30755300363840783e-308))
+  (lambda (x y)
+    (assert-<= (relerr y (log1mexp x)) 1e-15)))
 
 (define-enumerated-test 'log1pexp
-  (vector
-   (cons -1000 0.)
-   (cons -708 3.30755300363840783e-308)
-   (cons -38 3.13913279204802960e-17)
-   (cons -37 8.53304762574406580e-17)
-   (cons -36 2.31952283024356914e-16)
-   (cons 0 (log 2))
-   (cons 17 17.0000000413993746)
-   (cons 18 18.0000000152299791)
-   (cons 19 19.0000000056027964)
-   (cons 33 33.0000000000000071)
-   (cons 34 34.))
-  (lambda (v)
-    (assert-<= (relerr (cdr v) (log1pexp (car v))) 1e-15)))
+  (list
+   (list -1000 0.)
+   (list -708 3.30755300363840783e-308)
+   (list -38 3.13913279204802960e-17)
+   (list -37 8.53304762574406580e-17)
+   (list -36 2.31952283024356914e-16)
+   (list 0 (log 2))
+   (list 17 17.0000000413993746)
+   (list 18 18.0000000152299791)
+   (list 19 19.0000000056027964)
+   (list 33 33.0000000000000071)
+   (list 34 34.))
+  (lambda (x y)
+    (assert-<= (relerr y (log1pexp x)) 1e-15)))
 
 (define-enumerated-test 'logsumexp-values
-  (vector
-   (vector (iota 1000) 999.45867514538713)
-   (vector '(999 1000) 1000.3132616875182)
-   (vector '(-1000 -1000) (+ -1000 (log 2)))
-   (vector '(0 0) (log 2)))
-  (lambda (v)
-    (let ((l (vector-ref v 0))
-	  (s (vector-ref v 1)))
-      (assert-<= (relerr s (logsumexp l)) 1e-15))))
+  (list
+   (list (iota 1000) 999.45867514538713)
+   (list '(999 1000) 1000.3132616875182)
+   (list '(-1000 -1000) (+ -1000 (log 2)))
+   (list '(0 0) (log 2)))
+  (lambda (l s)
+    (assert-<= (relerr s (logsumexp l)) 1e-15)))
 
 (define-enumerated-test 'logsumexp-edges
-  (vector
-   (vector '() (flo:-inf.0))
-   (vector '(-1000) -1000)
-   (vector '(-1000.) -1000.)
-   (vector (list (flo:-inf.0)) (flo:-inf.0))
-   (vector (list (flo:-inf.0) 1) 1.)
-   (vector (list 1 (flo:-inf.0)) 1.)
-   (vector (list (flo:+inf.0)) (flo:+inf.0))
-   (vector (list (flo:+inf.0) 1) (flo:+inf.0))
-   (vector (list 1 (flo:+inf.0)) (flo:+inf.0))
-   (vector (list (flo:-inf.0) (flo:-inf.0)) (flo:-inf.0))
-   (vector (list (flo:+inf.0) (flo:+inf.0)) (flo:+inf.0)))
-  (lambda (v)
-    (let ((l (vector-ref v 0))
-	  (s (vector-ref v 1)))
-      (assert-eqv (logsumexp l) s))))
+  (list
+   (list '() (flo:-inf.0))
+   (list '(-1000) -1000)
+   (list '(-1000.) -1000.)
+   (list (list (flo:-inf.0)) (flo:-inf.0))
+   (list (list (flo:-inf.0) 1) 1.)
+   (list (list 1 (flo:-inf.0)) 1.)
+   (list (list (flo:+inf.0)) (flo:+inf.0))
+   (list (list (flo:+inf.0) 1) (flo:+inf.0))
+   (list (list 1 (flo:+inf.0)) (flo:+inf.0))
+   (list (list (flo:-inf.0) (flo:-inf.0)) (flo:-inf.0))
+   (list (list (flo:+inf.0) (flo:+inf.0)) (flo:+inf.0)))
+  (lambda (l s)
+    (assert-eqv (logsumexp l) s)))
 
 (define-enumerated-test 'logsumexp-nan
-  (vector
-   (list (flo:-inf.0) (flo:+inf.0))
-   (list (flo:+inf.0) (flo:-inf.0))
-   (list 1 (flo:-inf.0) (flo:+inf.0))
-   (list (flo:-inf.0) (flo:+inf.0) 1)
-   (list (flo:nan.0))
-   (list (flo:+inf.0) (flo:nan.0))
-   (list (flo:-inf.0) (flo:nan.0))
-   (list 1 (flo:nan.0))
-   (list (flo:nan.0) (flo:+inf.0))
-   (list (flo:nan.0) (flo:-inf.0))
-   (list (flo:nan.0) 1))
+  (list
+   (list (list (flo:-inf.0) (flo:+inf.0)))
+   (list (list (flo:+inf.0) (flo:-inf.0)))
+   (list (list 1 (flo:-inf.0) (flo:+inf.0)))
+   (list (list (flo:-inf.0) (flo:+inf.0) 1))
+   (list (list (flo:nan.0)))
+   (list (list (flo:+inf.0) (flo:nan.0)))
+   (list (list (flo:-inf.0) (flo:nan.0)))
+   (list (list 1 (flo:nan.0)))
+   (list (list (flo:nan.0) (flo:+inf.0)))
+   (list (list (flo:nan.0) (flo:-inf.0)))
+   (list (list (flo:nan.0) 1)))
   (lambda (l)
     (assert-nan (flo:with-trapped-exceptions 0 (lambda () (logsumexp l))))))
 
@@ -366,82 +368,75 @@ USA.
       x))
 
 (define-enumerated-test 'logit-logistic
-  (vector
-   (vector -36.7368005696771
+  (list
+   (list -36.7368005696771
            1.1102230246251565e-16
            (log 1.1102230246251565e-16))
-   (vector -1.0000001 0.2689414017088022 (log .2689414017088022))
-   (vector -0.9999999 0.26894144103118883 (log .26894144103118883))
-   (vector -1 0.2689414213699951 (log 0.2689414213699951))
-   (vector -4.000000000537333e-5 .49999 (log .49999))
-   (vector -4.000000108916879e-9 .499999999 (log .499999999))
-   (vector 0 1/2 (log 1/2))
-   (vector 3.999999886872274e-9 .500000001 (log .500000001))
-   (vector 8.000042667076279e-3 .502 (log .502))
-   (vector +0.9999999 0.7310585589688111 (log 0.7310585589688111))
-   (vector +1 0.7310585786300049 (log 0.7310585786300049))
-   (vector +1.0000001 0.7310585982911977 (log 0.7310585982911977))
+   (list -1.0000001 0.2689414017088022 (log .2689414017088022))
+   (list -0.9999999 0.26894144103118883 (log .26894144103118883))
+   (list -1 0.2689414213699951 (log 0.2689414213699951))
+   (list -4.000000000537333e-5 .49999 (log .49999))
+   (list -4.000000108916879e-9 .499999999 (log .499999999))
+   (list 0 1/2 (log 1/2))
+   (list 3.999999886872274e-9 .500000001 (log .500000001))
+   (list 8.000042667076279e-3 .502 (log .502))
+   (list +0.9999999 0.7310585589688111 (log 0.7310585589688111))
+   (list +1 0.7310585786300049 (log 0.7310585786300049))
+   (list +1.0000001 0.7310585982911977 (log 0.7310585982911977))
    ;; Would like to do +/-710 but we get inexact result traps.
-   (vector +708 1 -3.307553003638408e-308)
-   (vector -708 3.307553003638408e-308 -708)
-   (vector +1000 1. -0.)
-   (vector -1000 0. -1000.))
-  (lambda (v)
-    (let ((x (vector-ref v 0))
-          (p (vector-ref v 1))
-          (t (vector-ref v 2)))
-      (assert-<= (relerr p (logistic x)) 1e-15)
-      (if (and (not (= p 0))
-               (not (= p 1)))
-          (assert-<= (relerr x (logit p)) 1e-15))
-      (if (< p 1)
-          (begin
-            (assert-<= (relerr (- 1 p) (logistic (- x))) 1e-15)
-            (if (<= 1/2 p)
-                ;; In this case, 1 - p is evaluated exactly.
-                (assert-<= (relerr (- x) (logit (- 1 p))) 1e-15)))
-          (assert-<= (logistic (- x)) 1e-300))
-      (assert-<= (relerr t (log-logistic x)) 1e-15)
-      (if (<= x 709)
-          (assert-<= (relerr (exact->inexact x) (designify0 (logit-exp t)))
-                     1e-15))
-      (if (< p 1)
-          (assert-<= (relerr (log1p (- p)) (log-logistic (- x))) 1e-15)))))
+   (list +708 1 -3.307553003638408e-308)
+   (list -708 3.307553003638408e-308 -708)
+   (list +1000 1. -0.)
+   (list -1000 0. -1000.))
+  (lambda (x p t)
+    (assert-<= (relerr p (logistic x)) 1e-15)
+    (if (and (not (= p 0))
+             (not (= p 1)))
+        (assert-<= (relerr x (logit p)) 1e-15))
+    (if (< p 1)
+        (begin
+          (assert-<= (relerr (- 1 p) (logistic (- x))) 1e-15)
+          (if (<= 1/2 p)
+              ;; In this case, 1 - p is evaluated exactly.
+              (assert-<= (relerr (- x) (logit (- 1 p))) 1e-15)))
+        (assert-<= (logistic (- x)) 1e-300))
+    (assert-<= (relerr t (log-logistic x)) 1e-15)
+    (if (<= x 709)
+        (assert-<= (relerr (exact->inexact x) (designify0 (logit-exp t)))
+                   1e-15))
+    (if (< p 1)
+        (assert-<= (relerr (log1p (- p)) (log-logistic (- x))) 1e-15))))
 
 (define-enumerated-test 'logit-logistic-1/2
-  (vector
-   (vector 1e-300 4e-300)
-   (vector 1e-16 4e-16)
-   (vector .2310585786300049 1.)
-   (vector .49999999999999994 37.42994775023705)
-   (vector .5 38)
-   (vector .5 38)
-   (vector .5 709)
-   (vector .5 1000)
-   (vector .5 1e300))
-  (lambda (v)
-    (let ((p (vector-ref v 0))
-          (x (vector-ref v 1)))
-      (if (< p .5)
-          (begin
-            (assert-<= (relerr x (logit1/2+ p)) 1e-15)
-            (assert-= (- (logit1/2+ p)) (logit1/2+ (- p)))))
-      (assert-<= (relerr p (logistic-1/2 x)) 1e-15)
-      (assert-= (- (logistic-1/2 x)) (logistic-1/2 (- x))))))
+  (list
+   (list 1e-300 4e-300)
+   (list 1e-16 4e-16)
+   (list .2310585786300049 1.)
+   (list .49999999999999994 37.42994775023705)
+   (list .5 38)
+   (list .5 38)
+   (list .5 709)
+   (list .5 1000)
+   (list .5 1e300))
+  (lambda (p x)
+    (if (< p .5)
+        (begin
+          (assert-<= (relerr x (logit1/2+ p)) 1e-15)
+          (assert-= (- (logit1/2+ p)) (logit1/2+ (- p)))))
+    (assert-<= (relerr p (logistic-1/2 x)) 1e-15)
+    (assert-= (- (logistic-1/2 x)) (logistic-1/2 (- x)))))
 
 (define-enumerated-test 'expt-exact
-  (vector
-   (vector 2. -1075 "0.")
-   (vector 2. -1074 "4.9406564584124654e-324")
-   (vector 2. -1024 "5.562684646268004e-309")
-   (vector 2. -1023 "1.1125369292536007e-308")
-   (vector 2. -1022 "2.2250738585072014e-308"))
-  (lambda (v)
+  (list
+   (list 2. -1075 "0.")
+   (list 2. -1074 "4.9406564584124654e-324")
+   (list 2. -1024 "5.562684646268004e-309")
+   (list 2. -1023 "1.1125369292536007e-308")
+   (list 2. -1022 "2.2250738585072014e-308"))
+  (lambda (x y x^y)
     (flo:with-trapped-exceptions 0
       (lambda ()
-        (let ((x (vector-ref v 0))
-              (y (vector-ref v 1))
-              (x^y (string->number (vector-ref v 2))))
+        (let ((x^y (string->number x^y)))
           (assert-eqv (expt x y) x^y)
           ;; For all the inputs, reciprocal is exact.
           (assert-eqv (expt (/ 1 x) (- y)) x^y)
@@ -449,65 +444,60 @@ USA.
           (assert-eqv (expt (/ 1 (* 2 x)) (- (/ y 2))) x^y))))))
 
 (define-enumerated-test 'atan2
-  (vector
-   (vector +0. -1. +3.1415926535897932)
-   (vector -0. -1. -3.1415926535897932)
-   (vector +0. -0. +3.1415926535897932)
-   (vector -0. -0. -3.1415926535897932)
-   (vector +0. +0. +0.)
-   (vector -0. +0. -0.)
-   (vector +0. +1. +0.)
-   (vector -0. +1. -0.)
-   (vector -1. -0. -1.5707963267948966)
-   (vector -1. +0. -1.5707963267948966)
-   (vector +1. -0. +1.5707963267948966)
-   (vector +1. +0. +1.5707963267948966)
-   (vector -1. (flo:-inf.0) -3.1415926535897932)
-   (vector +1. (flo:-inf.0) +3.1415926535897932)
-   (vector -1. (flo:+inf.0) -0.)
-   (vector +1. (flo:+inf.0) +0.)
-   (vector (flo:-inf.0) -1. -1.5707963267948966)
-   (vector (flo:+inf.0) -1. +1.5707963267948966)
-   (vector (flo:-inf.0) (flo:-inf.0) -2.356194490192345)
-   (vector (flo:+inf.0) (flo:-inf.0) +2.356194490192345)
-   (vector (flo:-inf.0) (flo:+inf.0) -.7853981633974483)
-   (vector (flo:+inf.0) (flo:+inf.0) +.7853981633974483))
-  (lambda (v)
-    (let ((y (vector-ref v 0))
-          (x (vector-ref v 1))
-          (theta (vector-ref v 2)))
-      (if (zero? theta)
-          (assert-eqv (atan y x) theta)
-          (assert-<= (relerr theta (atan y x)) 1e-15)))))
+  (list
+   (list +0. -1. +3.1415926535897932)
+   (list -0. -1. -3.1415926535897932)
+   (list +0. -0. +3.1415926535897932)
+   (list -0. -0. -3.1415926535897932)
+   (list +0. +0. +0.)
+   (list -0. +0. -0.)
+   (list +0. +1. +0.)
+   (list -0. +1. -0.)
+   (list -1. -0. -1.5707963267948966)
+   (list -1. +0. -1.5707963267948966)
+   (list +1. -0. +1.5707963267948966)
+   (list +1. +0. +1.5707963267948966)
+   (list -1. (flo:-inf.0) -3.1415926535897932)
+   (list +1. (flo:-inf.0) +3.1415926535897932)
+   (list -1. (flo:+inf.0) -0.)
+   (list +1. (flo:+inf.0) +0.)
+   (list (flo:-inf.0) -1. -1.5707963267948966)
+   (list (flo:+inf.0) -1. +1.5707963267948966)
+   (list (flo:-inf.0) (flo:-inf.0) -2.356194490192345)
+   (list (flo:+inf.0) (flo:-inf.0) +2.356194490192345)
+   (list (flo:-inf.0) (flo:+inf.0) -.7853981633974483)
+   (list (flo:+inf.0) (flo:+inf.0) +.7853981633974483))
+  (lambda (y x theta)
+    (if (zero? theta)
+        (assert-eqv (atan y x) theta)
+        (assert-<= (relerr theta (atan y x)) 1e-15))))
 
 (define-enumerated-test 'negate-zero
-  (vector
-   (vector 0. -0.)
-   (vector -0. 0.))
-  (lambda (v)
-    (let ((x (vector-ref v 0))
-          (y (vector-ref v 1)))
-      (assert-eqv (- x) y)
-      (assert-eqv (- 0 (flo:copysign 1. x)) (flo:copysign 1. y)))))
+  (list
+   (list 0. -0.)
+   (list -0. 0.))
+  (lambda (x y)
+    (assert-eqv (- x) y)
+    (assert-eqv (- 0 (flo:copysign 1. x)) (flo:copysign 1. y))))
 
 (define-enumerated-test 'integer?
-  (vector
-   0
-   1
-   (* 1/2 (identity-procedure 2))
-   0.
-   1.
-   1.+0.i)
+  (list
+   (list 0)
+   (list 1)
+   (list (* 1/2 (identity-procedure 2)))
+   (list 0.)
+   (list 1.)
+   (list 1.+0.i))
   assert-integer)
 
 (define-enumerated-test 'not-integer?
-  (vector
-   1/2
-   0.1
-   1+2i
-   (flo:nan.0)
-   (flo:+inf.0)
-   (flo:-inf.0))
+  (list
+   (list 1/2)
+   (list 0.1)
+   (list 1+2i)
+   (list (flo:nan.0))
+   (list (flo:+inf.0))
+   (list (flo:-inf.0)))
   assert-not-integer)
 
 (define pi 3.1415926535897932)
@@ -523,44 +513,41 @@ USA.
     (assert-eqv (asin (identity-procedure -0.)) -0.)))
 
 (define-enumerated-test 'asin
-  (vector
-   (vector (/ (- (sqrt 6) (sqrt 2)) 4) (/ pi 12))
-   (vector (/ (sqrt (- 2 (sqrt 2))) 2) (/ pi 8))
-   (vector 1/2 (/ pi 6))
-   (vector (rsqrt 2) (/ pi 4))
-   (vector (/ (sqrt 3) 2) (/ pi 3))
-   (vector (/ (sqrt (+ 2 (sqrt 2))) 2) (* pi 3/8))
-   (vector (/ (+ (sqrt 6) (sqrt 2)) 4) (* pi 5/12))
-   (vector 1 (/ pi 2))
-   (vector 1+i .6662394324925153+1.0612750619050357i)
-   (vector -1+i -.6662394324925153+1.0612750619050357i)
-   (vector -1-i -.6662394324925153-1.0612750619050357i)
-   (vector 1-i .6662394324925153-1.0612750619050357i)
-   (vector 2 1.5707963267948966+1.3169578969248166i expect-failure)
-   (vector 2.+0.i 1.5707963267948966+1.3169578969248166i)
-   (vector 2.-0.i 1.5707963267948966-1.3169578969248166i)
-   (vector -2 -1.5707963267948966+1.3169578969248166i)
-   (vector -2.+0.i -1.5707963267948966+1.3169578969248166i)
-   (vector -2.-0.i -1.5707963267948966-1.3169578969248166i)
-   (vector 1e150 1.5707963267948966+346.0809111296668i expect-failure)
-   (vector 1e150+0.i 1.5707963267948966+346.0809111296668i expect-failure)
-   (vector 1e150-0.i 1.5707963267948966-346.0809111296668i)
-   (vector -1e150 -1.5707963267948966+346.0809111296668i)
-   (vector -1e150+0.i -1.5707963267948966+346.0809111296668i)
-   (vector -1e150-0.i -1.5707963267948966-346.0809111296668i expect-failure)
-   (vector 1e300 1.5707963267948966+691.4686750787736i expect-failure)
-   (vector 1e300+0.i 1.5707963267948966+691.4686750787736i expect-failure)
-   (vector 1e300-0.i 1.5707963267948966-691.4686750787736i)
-   (vector -1e300 -1.5707963267948966+691.4686750787736i)
-   (vector -1e300+0.i -1.5707963267948966+691.4686750787736i)
-   (vector -1e300-0.i -1.5707963267948966-691.4686750787736i expect-failure))
-  (lambda (v)
-    (let ((x (vector-ref v 0))
-          (t (vector-ref v 1))
-          (xfail (if (<= 3 (vector-length v)) (vector-ref v 2) #!default)))
-      (with-expected-failure xfail
-        (lambda ()
-          (assert-<= (relerr t (asin x)) 1e-14))))))
+  (list
+   (list (/ (- (sqrt 6) (sqrt 2)) 4) (/ pi 12))
+   (list (/ (sqrt (- 2 (sqrt 2))) 2) (/ pi 8))
+   (list 1/2 (/ pi 6))
+   (list (rsqrt 2) (/ pi 4))
+   (list (/ (sqrt 3) 2) (/ pi 3))
+   (list (/ (sqrt (+ 2 (sqrt 2))) 2) (* pi 3/8))
+   (list (/ (+ (sqrt 6) (sqrt 2)) 4) (* pi 5/12))
+   (list 1 (/ pi 2))
+   (list 1+i .6662394324925153+1.0612750619050357i)
+   (list -1+i -.6662394324925153+1.0612750619050357i)
+   (list -1-i -.6662394324925153-1.0612750619050357i)
+   (list 1-i .6662394324925153-1.0612750619050357i)
+   (list 2 1.5707963267948966+1.3169578969248166i expect-failure)
+   (list 2.+0.i 1.5707963267948966+1.3169578969248166i)
+   (list 2.-0.i 1.5707963267948966-1.3169578969248166i)
+   (list -2 -1.5707963267948966+1.3169578969248166i)
+   (list -2.+0.i -1.5707963267948966+1.3169578969248166i)
+   (list -2.-0.i -1.5707963267948966-1.3169578969248166i)
+   (list 1e150 1.5707963267948966+346.0809111296668i expect-failure)
+   (list 1e150+0.i 1.5707963267948966+346.0809111296668i expect-failure)
+   (list 1e150-0.i 1.5707963267948966-346.0809111296668i)
+   (list -1e150 -1.5707963267948966+346.0809111296668i)
+   (list -1e150+0.i -1.5707963267948966+346.0809111296668i)
+   (list -1e150-0.i -1.5707963267948966-346.0809111296668i expect-failure)
+   (list 1e300 1.5707963267948966+691.4686750787736i expect-failure)
+   (list 1e300+0.i 1.5707963267948966+691.4686750787736i expect-failure)
+   (list 1e300-0.i 1.5707963267948966-691.4686750787736i)
+   (list -1e300 -1.5707963267948966+691.4686750787736i)
+   (list -1e300+0.i -1.5707963267948966+691.4686750787736i)
+   (list -1e300-0.i -1.5707963267948966-691.4686750787736i expect-failure))
+  (lambda (x t #!optional xfail)
+    (with-expected-failure xfail
+      (lambda ()
+        (assert-<= (relerr t (asin x)) 1e-14)))))
 
 (define-test 'acos-1
   (lambda ()
@@ -570,48 +557,45 @@ USA.
     (assert-eqv (acos (identity-procedure 1.)) 0.)))
 
 (define-enumerated-test 'acos
-  (vector
-   (vector (/ (+ (sqrt 6) (sqrt 2)) 4) (/ pi 12))
-   (vector (/ (sqrt (+ 2 (sqrt 2))) 2) (/ pi 8))
-   (vector (/ (sqrt 3) 2) (/ pi 6))
-   (vector (rsqrt 2) (/ pi 4))
-   (vector 1/2 (/ pi 3))
-   (vector (/ (sqrt (- 2 (sqrt 2))) 2) (* pi 3/8))
-   (vector (/ (- (sqrt 6) (sqrt 2)) 4) (* pi 5/12))
-   (vector 0 (/ pi 2))
-   (vector 1+i .9045568943023813-1.0612750619050357i)
-   (vector -1+i 2.2370357592874117-1.0612750619050357i)
-   (vector -1-i 2.2370357592874117+1.0612750619050355i)
-   (vector 1-i .9045568943023814+1.0612750619050355i)
-   (vector 2 (* +i (log (- 2 (sqrt 3)))) expect-failure)
-   (vector 2.+0.i (* +i (log (- 2 (sqrt 3)))))
-   (vector 2.-0.i (* -i (log (- 2 (sqrt 3)))))
-   (vector -2 (+ pi (* +i (log (- 2 (sqrt 3))))))
-   (vector -2.+0.i (+ pi (* +i (log (- 2 (sqrt 3))))))
-   (vector -2.-0.i (+ pi (* -i (log (- 2 (sqrt 3))))))
+  (list
+   (list (/ (+ (sqrt 6) (sqrt 2)) 4) (/ pi 12))
+   (list (/ (sqrt (+ 2 (sqrt 2))) 2) (/ pi 8))
+   (list (/ (sqrt 3) 2) (/ pi 6))
+   (list (rsqrt 2) (/ pi 4))
+   (list 1/2 (/ pi 3))
+   (list (/ (sqrt (- 2 (sqrt 2))) 2) (* pi 3/8))
+   (list (/ (- (sqrt 6) (sqrt 2)) 4) (* pi 5/12))
+   (list 0 (/ pi 2))
+   (list 1+i .9045568943023813-1.0612750619050357i)
+   (list -1+i 2.2370357592874117-1.0612750619050357i)
+   (list -1-i 2.2370357592874117+1.0612750619050355i)
+   (list 1-i .9045568943023814+1.0612750619050355i)
+   (list 2 (* +i (log (- 2 (sqrt 3)))) expect-failure)
+   (list 2.+0.i (* +i (log (- 2 (sqrt 3)))))
+   (list 2.-0.i (* -i (log (- 2 (sqrt 3)))))
+   (list -2 (+ pi (* +i (log (- 2 (sqrt 3))))))
+   (list -2.+0.i (+ pi (* +i (log (- 2 (sqrt 3))))))
+   (list -2.-0.i (+ pi (* -i (log (- 2 (sqrt 3))))))
    ;; -i log(z + sqrt(z^2 - 1))
    ;; \approx -i log(z + sqrt(z^2))
    ;; = -i log(z + z)
    ;; = -i log(2 z)
-   (vector 1e150 (* +i (log (* 2 1e150))) expect-failure)
-   (vector 1e150+0.i (* +i (log (* 2 1e150))) expect-failure)
-   (vector 1e150-0.i (* -i (log (* 2 1e150))) expect-failure)
-   (vector -1e150 (+ pi (* +i (log (* 2 1e150)))) expect-failure)
-   (vector -1e150+0.i (+ pi (* +i (log (* 2 1e150)))) expect-failure)
-   (vector -1e150-0.i (+ pi (* -i (log (* 2 1e150)))) expect-failure)
-   (vector 1e300 (* +i (log (* 2 1e300))) expect-failure)
-   (vector 1e300+0.i (* +i (log (* 2 1e300))) expect-failure)
-   (vector 1e300-0.i (* -i (log (* 2 1e300))) expect-failure)
-   (vector -1e300 (+ pi (* +i (log (* 2 1e300)))) expect-failure)
-   (vector -1e300+0.i (+ pi (* +i (log (* 2 1e300)))) expect-failure)
-   (vector -1e300-0.i (+ pi (* -i (log (* 2 1e300)))) expect-failure))
-  (lambda (v)
-    (let ((x (vector-ref v 0))
-          (t (vector-ref v 1))
-          (xfail (if (<= 3 (vector-length v)) (vector-ref v 2) #!default)))
-      (with-expected-failure xfail
-        (lambda ()
-          (assert-<= (relerr t (acos x)) 1e-14))))))
+   (list 1e150 (* +i (log (* 2 1e150))) expect-failure)
+   (list 1e150+0.i (* +i (log (* 2 1e150))) expect-failure)
+   (list 1e150-0.i (* -i (log (* 2 1e150))) expect-failure)
+   (list -1e150 (+ pi (* +i (log (* 2 1e150)))) expect-failure)
+   (list -1e150+0.i (+ pi (* +i (log (* 2 1e150)))) expect-failure)
+   (list -1e150-0.i (+ pi (* -i (log (* 2 1e150)))) expect-failure)
+   (list 1e300 (* +i (log (* 2 1e300))) expect-failure)
+   (list 1e300+0.i (* +i (log (* 2 1e300))) expect-failure)
+   (list 1e300-0.i (* -i (log (* 2 1e300))) expect-failure)
+   (list -1e300 (+ pi (* +i (log (* 2 1e300)))) expect-failure)
+   (list -1e300+0.i (+ pi (* +i (log (* 2 1e300)))) expect-failure)
+   (list -1e300-0.i (+ pi (* -i (log (* 2 1e300)))) expect-failure))
+  (lambda (x t #!optional xfail)
+    (with-expected-failure xfail
+      (lambda ()
+        (assert-<= (relerr t (acos x)) 1e-14)))))
 
 (define-test 'atan-0
   (lambda ()
@@ -623,31 +607,28 @@ USA.
     (assert-eqv (atan (identity-procedure -0.)) -0.)))
 
 (define-enumerated-test 'atan
-  (vector
-   (vector (- 2 (sqrt 3)) (/ 3.1415926535897932 12))
-   (vector (- (sqrt 2) 1) (/ 3.1415926535897932 8))
-   (vector (rsqrt 3) (/ 3.1415926535897932 6))
-   (vector 1 (/ 3.1415926535897932 4))
-   (vector (sqrt 3) (/ 3.1415926535897932 3))
-   (vector (+ (sqrt 2) 1) (* 3.1415926535897932 3/8))
-   (vector (+ 2 (sqrt 3)) (* 3.1415926535897932 5/12))
-   (vector 1+i 1.0172219678978514+.4023594781085251i)
-   (vector -1+i -1.0172219678978514+.4023594781085251i)
-   (vector -1-i -1.0172219678978514-.4023594781085251i)
-   (vector 1-i 1.0172219678978514-.4023594781085251i)
-   (vector +2i +1.5707963267948966+.5493061443340549i)
-   (vector +0.+2i +1.5707963267948966+.5493061443340549i)
-   (vector -0.+2i -1.5707963267948966+.5493061443340549i)
-   (vector -2i +1.5707963267948966-.5493061443340549i)
-   (vector +0.-2i +1.5707963267948966-.5493061443340549i)
-   (vector -0.-2i -1.5707963267948966-.5493061443340549i))
-  (lambda (v)
-    (let ((x (vector-ref v 0))
-          (t (vector-ref v 1))
-          (xfail (if (<= 3 (vector-length v)) (vector-ref v 2) #!default)))
-      (with-expected-failure xfail
-        (lambda ()
-          (assert-<= (relerr t (atan x)) 1e-15))))))
+  (list
+   (list (- 2 (sqrt 3)) (/ 3.1415926535897932 12))
+   (list (- (sqrt 2) 1) (/ 3.1415926535897932 8))
+   (list (rsqrt 3) (/ 3.1415926535897932 6))
+   (list 1 (/ 3.1415926535897932 4))
+   (list (sqrt 3) (/ 3.1415926535897932 3))
+   (list (+ (sqrt 2) 1) (* 3.1415926535897932 3/8))
+   (list (+ 2 (sqrt 3)) (* 3.1415926535897932 5/12))
+   (list 1+i 1.0172219678978514+.4023594781085251i)
+   (list -1+i -1.0172219678978514+.4023594781085251i)
+   (list -1-i -1.0172219678978514-.4023594781085251i)
+   (list 1-i 1.0172219678978514-.4023594781085251i)
+   (list +2i +1.5707963267948966+.5493061443340549i)
+   (list +0.+2i +1.5707963267948966+.5493061443340549i)
+   (list -0.+2i -1.5707963267948966+.5493061443340549i)
+   (list -2i +1.5707963267948966-.5493061443340549i)
+   (list +0.-2i +1.5707963267948966-.5493061443340549i)
+   (list -0.-2i -1.5707963267948966-.5493061443340549i))
+  (lambda (x t #!optional xfail)
+    (with-expected-failure xfail
+      (lambda ()
+        (assert-<= (relerr t (atan x)) 1e-15)))))
 
 (define-test 'radix
   (lambda ()
@@ -742,57 +723,53 @@ USA.
            (flo:nextafter flo:greatest-normal-exponent-base-2 (flo:+inf.0))))))
 
 (define-enumerated-test 'infinite-magnitude
-  (vector
-   +inf.0
-   -inf.0
-   +inf.0+i
-   +inf.0-i
-   -inf.0-i
-   -inf.0+i
-   1+inf.0i
-   1-inf.0i
-   -1-inf.0i
-   -1+inf.0i
-   +inf.0+inf.0i
-   +inf.0-inf.0i
-   -inf.0-inf.0i
-   -inf.0+inf.0i)
+  (list
+   (list +inf.0)
+   (list -inf.0)
+   (list +inf.0+i)
+   (list +inf.0-i)
+   (list -inf.0-i)
+   (list -inf.0+i)
+   (list 1+inf.0i)
+   (list 1-inf.0i)
+   (list -1-inf.0i)
+   (list -1+inf.0i)
+   (list +inf.0+inf.0i)
+   (list +inf.0-inf.0i)
+   (list -inf.0-inf.0i)
+   (list -inf.0+inf.0i))
   (lambda (z)
     (assert-inf+ (magnitude z))))
 
 (define-enumerated-test 'infinite-angle
-  (vector
-   (vector +inf.0 0.)   ;XXX Why not exact, if imag-part is exact 0?
-   (vector -inf.0 pi)
-   (vector +inf.0+i 0.)
-   (vector +inf.0-i -0.)
-   (vector -inf.0-i (- pi))
-   (vector -inf.0+i pi)
-   (vector 1+inf.0i (* pi 1/2))
-   (vector 1-inf.0i (* pi -1/2))
-   (vector -1-inf.0i (* pi -1/2))
-   (vector -1+inf.0i (* pi 1/2))
-   (vector +inf.0+inf.0i (* pi 1/4))
-   (vector +inf.0-inf.0i (* pi -1/4))
-   (vector -inf.0-inf.0i (* pi -3/4))
-   (vector -inf.0+inf.0i (* pi 3/4)))
-  (lambda (v)
-    (let ((z (vector-ref v 0))
-          (t (vector-ref v 1)))
-      (assert-<= (relerr t (angle z)) 1e-15))))
+  (list
+   (list +inf.0 0.)   ;XXX Why not exact, if imag-part is exact 0?
+   (list -inf.0 pi)
+   (list +inf.0+i 0.)
+   (list +inf.0-i -0.)
+   (list -inf.0-i (- pi))
+   (list -inf.0+i pi)
+   (list 1+inf.0i (* pi 1/2))
+   (list 1-inf.0i (* pi -1/2))
+   (list -1-inf.0i (* pi -1/2))
+   (list -1+inf.0i (* pi 1/2))
+   (list +inf.0+inf.0i (* pi 1/4))
+   (list +inf.0-inf.0i (* pi -1/4))
+   (list -inf.0-inf.0i (* pi -3/4))
+   (list -inf.0+inf.0i (* pi 3/4)))
+  (lambda (z t)
+    (assert-<= (relerr t (angle z)) 1e-15)))
 
 (define-enumerated-test 'flo:classify
-  `#((0. zero)
-     (-0. zero)
-     (,(flo:nextafter 0. 1.) subnormal)
-     (,flo:smallest-positive-subnormal subnormal)
-     (,flo:smallest-positive-normal normal)
-     (1. normal)
-     (+inf.0 infinite)
-     (-inf.0 infinite)
-     (+nan.0 nan)
-     (-nan.0 nan))
-  (lambda (l)
-    (let ((x (car l))
-          (c (cadr l)))
-      (assert-eq (flo:classify x) c))))
\ No newline at end of file
+  `((0. zero)
+    (-0. zero)
+    (,(flo:nextafter 0. 1.) subnormal)
+    (,flo:smallest-positive-subnormal subnormal)
+    (,flo:smallest-positive-normal normal)
+    (1. normal)
+    (+inf.0 infinite)
+    (-inf.0 infinite)
+    (+nan.0 nan)
+    (-nan.0 nan))
+  (lambda (x c)
+    (assert-eq (flo:classify x) c)))
\ No newline at end of file