~ chicken-core (chicken-5) f7889a9a91fb90cf9ea0b9ea093bb595b953c716

commit f7889a9a91fb90cf9ea0b9ea093bb595b953c716
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 18 12:27:00 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun May 31 14:55:25 2015 +0200

    posix unit: "local-time->seconds" and "utc-time->seconds" internally expected float result (changed now to use "=" instead of "fp=", which also removes compiler warning.

diff --git a/posix-common.scm b/posix-common.scm
index b4fc8c7a..449e0089 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -580,7 +580,7 @@ EOF
     (lambda (tm)
       (check-time-vector 'local-time->seconds tm)
       (let ((t (##core#inline_allocate ("C_a_mktime" 7) tm (##sys#make-string tm-size #\nul))))
-        (if (fp= -1.0 t)
+        (if (= -1 t)
             (##sys#error 'local-time->seconds "cannot convert time vector to seconds" tm)
             t)))))
 
diff --git a/posixunix.scm b/posixunix.scm
index 61514e8e..73ba8592 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1444,7 +1444,7 @@ EOF
     (lambda (tm)
       (check-time-vector 'utc-time->seconds tm)
       (let ((t (##core#inline_allocate ("C_a_timegm" 7) tm (##sys#make-string tm-size #\nul))))
-        (if (fp= -1.0 t)
+        (if (= -1 t)
             (##sys#error 'utc-time->seconds "cannot convert time vector to seconds" tm)
             t)))))