mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +02:00
Code Activity

Fix bytevectors VALIDATE_REAL to test for reals, not rationals

Browse source 
Reported and fixed by Daniel Llorens <dll@bluewin.ch>.

* libguile/bytevectors.c (VALIDATE_REAL): Test for reals, not rationals.

* test-suite/tests/srfi-4.test (f32 vectors, f64 vectors): Add tests.
This commit is contained in:
Mark H Weaver 2011-03-01 12:46:38 -05:00
parent 0176bbb717
commit ae255d65c3
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test-suite/tests/srfi-4.test
View file

@ -352,7 +352,10 @@
(pass-if "make-f32vector"
(equal? (list->f32vector '(7 7 7 7))
(make-f32vector 4 7))))
(make-f32vector 4 7)))
(pass-if "+inf.0, -inf.0, +nan.0 in f32vector"
(f32vector? #f32(+inf.0 -inf.0 +nan.0))))
(with-test-prefix "f64 vectors"
@ -389,4 +392,7 @@
(pass-if "make-f64vector"
(equal? (list->f64vector '(7 7 7 7))
(make-f64vector 4 7))))
(make-f64vector 4 7)))
(pass-if "+inf.0, -inf.0, +nan.0 in f64vector"
(f64vector? #f64(+inf.0 -inf.0 +nan.0))))