time-second was off my 30 years. fixed.

2007-12-07 06:34:56 -05:00 · 2007-12-07 06:34:56 -05:00 · 39e5c98476
parent 86d9c640b1
commit 39e5c98476
2 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.time-and-date.ss
+++ b/scheme/ikarus.time-and-date.ss
@ -28,7 +28,7 @@

  (define (time-second x)
    (if (time? x) 
-        (+ (* (time-msecs x) #e10e6)
+        (+ (* (time-msecs x) #e10e5)
           (time-secs x))
        (error 'time-second "not a time" x)))
  
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1193
+1196