[functional tests] Remove dependency on the ThunderChez library.

I've just moved the relevant code into the functional-tests dir.

functional-tests/srfi/s19/time.sls

@@ -0,0 +1,58 @@
+;; Copyright (c) 2009 Derick Eddington.  All rights reserved.
+;; Licensed under an MIT-style license.  My license is in the file
+;; named LICENSE from the original collection this file is distributed
+;; with.  If this file is redistributed with some other collection, my
+;; license must also be included.
+
+#!r6rs
+(library (srfi s19 time)
+  (export
+    time make-time time? time-type time-nanosecond time-second
+    date make-date date? date-nanosecond date-second date-minute 
+    date-hour date-day date-month date-year date-zone-offset
+    time-tai time-utc time-monotonic
+    #|time-thread time-process|# time-duration
+    read-leap-second-table copy-time current-time
+    time-resolution time=? time>? time<? time>=? time<=?
+    time-difference time-difference! add-duration
+    add-duration! subtract-duration subtract-duration!
+    time-tai->time-utc time-tai->time-utc! time-utc->time-tai
+    time-utc->time-tai! time-monotonic->time-utc
+    time-monotonic->time-utc! time-monotonic->time-tai
+    time-monotonic->time-tai! time-utc->time-monotonic
+    time-utc->time-monotonic! time-tai->time-monotonic
+    time-tai->time-monotonic! time-tai->date time-utc->date
+    time-monotonic->date date->time-utc date->time-tai
+    date->time-monotonic leap-year? date-year-day
+    date-week-day date-week-number current-date
+    date->julian-day date->modified-julian-day
+    time-utc->julian-day time-utc->modified-julian-day
+    time-tai->julian-day time-tai->modified-julian-day
+    time-monotonic->julian-day
+    time-monotonic->modified-julian-day julian-day->time-utc
+    julian-day->time-tai julian-day->time-monotonic
+    julian-day->date modified-julian-day->date
+    modified-julian-day->time-utc
+    modified-julian-day->time-tai
+    modified-julian-day->time-monotonic current-julian-day
+    current-modified-julian-day date->string string->date)
+  (import
+    (rnrs)
+    (rnrs r5rs)
+    (rnrs mutable-strings)
+    (srfi s19 time compat)
+    (srfi s6 basic-string-ports)
+    (srfi private include))
+  
+  (define read-line
+    (case-lambda
+      [()
+       (get-line (current-input-port))]
+      [(port)
+       (get-line port)]))
+  
+  (define eof (eof-object))
+  
+  (include/resolve ("srfi" "s19") "srfi-19.scm")
+)
+

functional-tests/srfi/s19/time/compat.chezscheme.sls

@@ -0,0 +1,26 @@
+
+(library (srfi s19 time compat)
+
+  (export format
+          host:time-resolution
+          host:current-time 
+          host:time-nanosecond 
+          host:time-second 
+          host:time-gmt-offset)
+
+  (import (chezscheme)
+          (prefix (only (chezscheme)
+                        current-time
+                        time-nanosecond
+                        time-second)
+                  host:))
+
+  (define host:time-resolution 1000)
+
+  ;; (define (host:time-gmt-offset t)
+  ;;   (date-zone-offset t))
+
+  (define (host:time-gmt-offset t)
+    (date-zone-offset (time-utc->date t)))
+    
+  )