;; utc.scm - (c) rohan drape, 2006-2007

;; SRFI-19 implementation of 'utc'.
;; PLT has problems with SRFI-19...

(module utc scheme/base

(require (only-in (lib "19.ss" "srfi")
		  current-time
		  time-second
		  time-nanosecond))

(provide utc)

(define (utc)
  (let ((t (current-time)))
    (+ (time-second t)
       (* (time-nanosecond t) 1e-9))))

)