Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

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

open
nobody
None
5
2007-10-27
2007-10-27
Mike J. Bell
No

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

Discussion