suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR10614

Browse Source 
svn: r17077
This commit is contained in:
Eli Barzilay 2009-11-27 05:49:35 +00:00
parent d3ff146643
commit 70794d4a51
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/srfi/19/time.ss
View File

@ -390,13 +390,13 @@
(define (time>=? time1 time2)
(tm:time-compare-check time1 time2 'time>=?)
(or (>= (time-second time1) (time-second time2))
(or (> (time-second time1) (time-second time2))
(and (= (time-second time1) (time-second time2))
(>= (time-nanosecond time1) (time-nanosecond time2)))))
(define (time<=? time1 time2)
(tm:time-compare-check time1 time2 'time<=?)
(or (<= (time-second time1) (time-second time2))
(or (< (time-second time1) (time-second time2))
(and (= (time-second time1) (time-second time2))
(<= (time-nanosecond time1) (time-nanosecond time2)))))