Renamed truncate-float64 to truncate-finite-float64

This commit is contained in:
waldemar%netscape.com 2001-08-10 23:26:50 +00:00
Родитель 291a314417
Коммит a016f1f7ac
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -143,7 +143,7 @@
(define (float64-to-uint32 (x float64)) integer
(if (or (float64-is-na-n x) (float64-is-infinite x))
0
(mod (truncate-float64 x) #x100000000)))
(mod (truncate-finite-float64 x) #x100000000)))
(define (coerce-to-uint32 (v value)) integer-or-exception
(letexc (d float64 (coerce-to-float64 v))