report "non-flonum found in flvector", not non-fixnum

cisco · Aug 20, 2024 · 94c0579 · 94c0579
1 parent 3d89d4e
commit 94c0579
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/mats/root-experr-compile-0-f-f-f b/mats/root-experr-compile-0-f-f-f
@@ -4727,8 +4727,8 @@ cp0.mo:Expected error in mat expand/optimize-output: "expand/optimize-output: #<
 6.mo:Expected error in mat read-test: "read: non-fixnum found in fxvector at line 3, char 23 of testfile.ss".
 6.mo:Expected error in mat read-test: "read: non-fixnum found in fxvector at line 3, char 24 of testfile.ss".
 6.mo:Expected error in mat read-test: "read: too many flvector elements supplied at line 3, char 16 of testfile.ss".
-6.mo:Expected error in mat read-test: "read: non-fixnum found in flvector at line 3, char 25 of testfile.ss".
-6.mo:Expected error in mat read-test: "read: non-fixnum found in flvector at line 3, char 26 of testfile.ss".
+6.mo:Expected error in mat read-test: "read: non-flonum found in flvector at line 3, char 25 of testfile.ss".
+6.mo:Expected error in mat read-test: "read: non-flonum found in flvector at line 3, char 26 of testfile.ss".
 6.mo:Expected error in mat read-test: "read: too many fxvector elements supplied at line 3, char 16 of testfile.ss".
 6.mo:Expected error in mat read-test: "read: too many stencil vector elements supplied at line 3, char 16 of testfile.ss".
 6.mo:Expected error in mat read-test: "read: not enough stencil vector elements supplied at line 3, char 24 of testfile.ss".

diff --git a/s/read.ss b/s/read.ss
@@ -1501,7 +1501,7 @@
       [(eof) (let ([bfp expr-bfp]) (xcall rd-eof-error "flvector"))]
       [else
        (unless (and (eq? type 'atomic) (flonum? value))
-         (xcall rd-error #f #t "non-fixnum found in flvector"))
+         (xcall rd-error #f #t "non-flonum found in flvector"))
        (xmvlet ((v) (xcall rd-flvector expr-bfp (fx+ i 1)))
          (flvector-set! v i value)
          (xvalues v))])))
@@ -1525,7 +1525,7 @@
       [(eof) (let ([bfp expr-bfp]) (xcall rd-eof-error "flvector"))]
       [else
        (unless (and (eq? type 'atomic) (flonum? value))
-         (xcall rd-error #f #t "non-fixnum found in flvector"))
+         (xcall rd-error #f #t "non-flonum found in flvector"))
        (unless (fx< i n)
          (let ([bfp expr-bfp])
            (xcall rd-error #f #t "too many flvector elements supplied")))