* fixed name of time-second (was time-seconds before).

scheme/ikarus.time-and-date.ss

@@ -15,9 +15,10 @@
 
 
 (library (ikarus system time-and-date)
-  (export current-time time? time-seconds)
+  (export current-time time? time-second time-nanosecond)
   (import 
-    (except (ikarus) time current-time time? time-seconds))
+    (except (ikarus) time current-time time? time-second
+            time-nanosecond))
 
   (define-struct time (msecs secs usecs))
                   ;;; mega/seconds/micros
@@ -25,9 +26,16 @@
   (define (current-time) 
     (foreign-call "ikrt_current_time" (make-time 0 0 0)))
 
-  (define (time-seconds x)
+  (define (time-second x)
     (if (time? x) 
         (+ (* (time-msecs x) #e10e6)
            (time-secs x))
-        (error 'time-seconds "not a time" x))))
+        (error 'time-second "not a time" x)))
+  
+  (define (time-nanosecond x)
+    (if (time? x) 
+        (* (time-usecs x) 1000)
+        (error 'time-nanosecond "not a time" x)))
+
+  )
 

scheme/last-revision

@@ -1 +1 @@
-1183
+1185

scheme/makefile.ss

@@ -373,7 +373,8 @@
     [time-it                                     i]
     [current-time                                i]
     [time?                                       i]
-    [time-seconds                                i]
+    [time-second                                 i]
+    [time-nanosecond                             i]
     [command-line-arguments                      i]
     [set-rtd-printer!                            i]
     [make-record-type                            i]