First try to fix the reference implementation for SRFI 19.

scheme/more-interfaces.scm

@@ -533,6 +533,93 @@
 	  char-set:empty	char-set:full
 
 	  ))
+(define-interface srfi-19-interface
+  (export;; Constants
+   time-duration
+   time-monotonic
+   time-process
+   time-tai
+   time-thread
+   time-utc
+   ;; Current time and clock resolution
+   current-date
+   current-julian-day
+   current-modified-julian-day
+   current-time
+   time-resolution
+   ;; Time object and accessors
+   make-time
+   time?
+   time-type
+   time-nanosecond
+   time-second
+   set-time-type!
+   set-time-nanosecond!
+   set-time-second!
+   copy-time
+   ;; Time comparison procedures
+   time<=?
+   time<?
+   time=?
+   time>=?
+   time>?
+   ;; Time arithmetic procedures
+   time-difference
+   time-difference!
+   add-duration
+   add-duration!
+   subtract-duration
+   subtract-duration!
+   ;; Date object and accessors
+   make-date
+   date?
+   date-nanosecond
+   date-second
+   date-minute
+   date-hour
+   date-day
+   date-month
+   date-year
+   date-zone-offset
+   date-year-day
+   date-week-day
+   date-week-number
+   ;; Time/Date/Julian Day/Modified Julian Day converters
+   date->julian-day
+   date->modified-julian-day
+   date->time-monotonic
+   date->time-tai
+   date->time-utc
+   julian-day->date
+   julian-day->time-monotonic
+   julian-day->time-tai
+   julian-day->time-utc
+   modified-julian-day->date
+   modified-julian-day->time-monotonic
+   modified-julian-day->time-tai
+   modified-julian-day->time-utc
+   time-monotonic->date
+   time-monotonic->time-tai
+   time-monotonic->time-tai!
+   time-monotonic->time-utc
+   time-monotonic->time-utc!
+   time-tai->date
+   time-tai->julian-day
+   time-tai->modified-julian-day
+   time-tai->time-monotonic
+   time-tai->time-monotonic!
+   time-tai->time-utc
+   time-tai->time-utc!
+   time-utc->date
+   time-utc->julian-day
+   time-utc->modified-julian-day
+   time-utc->time-monotonic
+   time-utc->time-monotonic!
+   time-utc->time-tai
+   time-utc->time-tai!
+   ;; Date to string/string to date converters.
+   date->string
+   string->date))
 
 (define-interface srfi-27-interface
   (export random-integer

scheme/more-packages.scm

@@ -805,7 +805,16 @@
   (files (srfi srfi-17)))
 
 ; SRFI-18 - no implementation given
-; SRFI-19 - implementation is specific to MzScheme
+
+(define-structure srfi-19 srfi-19-interface
+  (open scheme-with-scsh
+      (subset srfi-1 (reverse!))
+      srfi-6
+      srfi-8
+      signals
+      srfi-9)
+  (files (srfi srfi-19)))
+
 ; SRFI-20 - withdrawn
 ; SRFI-21 - no implementation given
 ; SRFI-22 - no implementation given