~ chicken-core (chicken-5) 77cadb0b54e536695522190cd813707479ae3b64

commit 77cadb0b54e536695522190cd813707479ae3b64
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 17 04:21:31 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 17 04:21:31 2010 -0500

    removed deprecated internal srfi-18 routines; time->seconds returned incorrect result (thanks to Alan Post for reporting this)

diff --git a/srfi-18.scm b/srfi-18.scm
index b34e9d90..1bdc6de1 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -57,11 +57,9 @@
 (define (current-time)
   (##sys#make-structure 'time (current-milliseconds)))
 
-(define srfi-18:current-time current-time)    ; DEPRECATED
-
 (define (time->seconds tm)
   (##sys#check-structure tm 'time 'time->seconds)
-  (fp* (##sys#slot tm 1) 1000.0))
+  (fp/ (##sys#slot tm 1) 1000.0))
 
 (define (time->milliseconds tm)		; DEPRECATED
   (##sys#check-structure tm 'time 'time->milliseconds)
@@ -77,8 +75,6 @@
 
 (define (time? x) (##sys#structure? x 'time))
 
-(define srfi-18:time? time?)    ; DEPRECATED
-
 
 ;;; Exception handling: