Implement CURRENT-SECOND for R7RS.

diff --git a/src/runtime/datime.scm b/src/runtime/datime.scm
index 2cdeb9afc631c605ae282f15e098de87820730d7..f3e9d13e4d4fe7577955a72ecfbd72e94181febf 100644 (file)
--- a/src/runtime/datime.scm
+++ b/src/runtime/datime.scm
@@ -166,6 +166,9 @@ USA.
 
 (define epoch 2208988800)
 
+(define (current-second)
+  (exact->inexact ((ucode-primitive encoded-time 0))))
+
 (define (local-decoded-time)
   (universal-time->local-decoded-time (get-universal-time)))
 

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 327546925a4b10364598bf5ee97fb84ff7aa2f77..c27f5222994746f01824135f524776dff947ad39 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1650,6 +1650,7 @@ USA.
          ctime-string->decoded-time
          ctime-string->file-time
          ctime-string->universal-time
+         current-second                ;R7RS
          day-of-week/long-string
          day-of-week/short-string
          decoded-time->ctime-string