Changeset 12943 in project
- Timestamp:
- 01/06/09 20:14:52 (11 years ago)
- Location:
- release/3/srfi-19
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/3/srfi-19/tags/2.7.1/srfi-19-core.scm
r12941 r12943 1452 1452 (let ([dif (tm:date-compare 'date-compare dat1 dat2)]) 1453 1453 (cond 1454 [(fx < dif 0) -1]1455 [(fx > dif 0) 1]1454 [(fx> 0 dif) -1] 1455 [(fx< 0 dif) 1] 1456 1456 [else 0] ) ) ) 1457 1457 … … 1460 1460 1461 1461 (define (date<? dat1 dat2) 1462 (fx <0 (tm:date-compare 'date<? dat1 dat2)) )1462 (fx> 0 (tm:date-compare 'date<? dat1 dat2)) ) 1463 1463 1464 1464 (define (date<=? dat1 dat2) 1465 (fx <= 0 (tm:date-compare 'date<=? dat1 dat2)) )1465 (fx>= 0 (tm:date-compare 'date<=? dat1 dat2)) ) 1466 1466 1467 1467 (define (date>? dat1 dat2) 1468 (fx >0 (tm:date-compare 'date>? dat1 dat2)) )1468 (fx< 0 (tm:date-compare 'date>? dat1 dat2)) ) 1469 1469 1470 1470 (define (date>=? dat1 dat2) 1471 (fx >= 0 (tm:date-compare 'date>=? dat1 dat2)) )1471 (fx<= 0 (tm:date-compare 'date>=? dat1 dat2)) ) 1472 1472 1473 1473 ;; Date Arithmetic -
release/3/srfi-19/trunk/srfi-19-core.scm
r12941 r12943 1407 1407 (let ([dif (tm:date-compare 'date-compare dat1 dat2)]) 1408 1408 (cond 1409 [(fx < dif 0) -1]1410 [(fx > dif 0) 1]1409 [(fx> 0 dif) -1] 1410 [(fx< 0 dif) 1] 1411 1411 [else 0] ) ) ) 1412 1412 … … 1415 1415 1416 1416 (define (date<? dat1 dat2) 1417 (fx <0 (tm:date-compare 'date<? dat1 dat2)) )1417 (fx> 0 (tm:date-compare 'date<? dat1 dat2)) ) 1418 1418 1419 1419 (define (date<=? dat1 dat2) 1420 (fx <= 0 (tm:date-compare 'date<=? dat1 dat2)) )1420 (fx>= 0 (tm:date-compare 'date<=? dat1 dat2)) ) 1421 1421 1422 1422 (define (date>? dat1 dat2) 1423 (fx >0 (tm:date-compare 'date>? dat1 dat2)) )1423 (fx< 0 (tm:date-compare 'date>? dat1 dat2)) ) 1424 1424 1425 1425 (define (date>=? dat1 dat2) 1426 (fx >= 0 (tm:date-compare 'date>=? dat1 dat2)) )1426 (fx<= 0 (tm:date-compare 'date>=? dat1 dat2)) ) 1427 1427 1428 1428 ;; Date Arithmetic
Note: See TracChangeset
for help on using the changeset viewer.