[ sisc-Bugs-1821067 ] Bug in time>=? and time<=? in SRFI-19

Bugs item #1821067, was opened at 2007-10-26 22:55
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1821067&group_id=23735

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Mike J. Bell (ckimyt)
Assigned to: Nobody/Anonymous (nobody)
Summary: Bug in time>=? and time<=? in SRFI-19

Initial Comment:
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

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1821067&group_id=23735

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/