Moved srfi-19.scm to scsh/.

scheme/more-interfaces.scm

@@ -533,93 +533,6 @@
 	  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

@@ -806,14 +806,7 @@
 
 ; SRFI-18 - no implementation given
 
-(define-structure srfi-19 srfi-19-interface
+; SRFI-19 - needs access to time primitves => moved to scsh
-  (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

scsh/scsh-interfaces.scm

@@ -1186,4 +1186,92 @@
 	  number->md5-digest
 
 	  md5-digest-for-string
-	  md5-digest-for-port))
+	  md5-digest-for-port))
+
+(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))

scsh/scsh-package.scm

@@ -587,4 +587,13 @@
 	(subset srfi-13 (string-fold-right))
 	signals
 	external-calls)
-  (files md5))
+  (files md5))
+
+(define-structure srfi-19 srfi-19-interface
+  (open scheme-with-scsh
+      (subset srfi-1 (reverse!))
+      srfi-6
+      srfi-8
+      signals
+      srfi-9)
+  (files srfi-19))