#239 Bug in time>=? and time<=? in SRFI-19

[Mike J. Bell]

In the file src/sisc/modules/srfi/srfi-19/srfi-19.scm, time>=? is defined as

(define (time>=? time1 time2)
(tm:time-compare-check time1 time2 'time>=?)
(or (>= (time-second time1) (time-second time2))
(and (= (time-second time1) (time-second time2))
(>= (time-nanosecond time1) (time-nanosecond time2)))))

Line 297, the (or..., should read:

(or (> (time-second time1) (time-second time2))

Similarly, time<=?, defined as

(define (time<=? time1 time2)
(tm:time-compare-check time1 time2 'time<=?)
(or (<= (time-second time1) (time-second time2))
(and (= (time-second time1) (time-second time2))
(<= (time-nanosecond time1) (time-nanosecond time2)))))

Line 303 should likewise read:

(or (< (time-second time1) (time-second time2))

Mike