[Chicken-users] srfi-19 date comparison

[Anthony Carrico]

Here is a bug report for date comparison. Thank you.

$ csi

CHICKEN
(c)2008 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 3.4.0 - linux-unix-gnu-x86-64   [ 64bit manyargs dload ptables
applyhook ]
SVN rev. 11987  compiled 2008-12-02 on chew-z (Linux)

#;1> (use srfi-19)
; loading /usr/local/lib/chicken/3/srfi-19.scm ...
; loading /usr/local/lib/chicken/3/srfi-19-core.so ...
; loading /usr/local/lib/chicken/3/numbers-base.so ...
; loading /usr/local/lib/chicken/3/locale.so ...
; loading /usr/local/lib/chicken/3/locale-posix.so ...
; loading /usr/local/lib/chicken/3/locale-categories.so ...
; loading /usr/local/lib/chicken/3/locale-components.so ...
; loading /usr/local/lib/chicken/3/locale-parameters.so ...
; loading /usr/local/lib/chicken/3/srfi-19-io.so ...
; loading /usr/local/lib/chicken/3/srfi-29.so ...
; loading /usr/local/lib/chicken/3/lookup-table.so ...
; loading /usr/local/lib/chicken/3/misc-extn-control-support.so ...
; loading /usr/local/lib/chicken/3/misc-extn-directory.so ...
; loading /usr/local/lib/chicken/3/misc-extn-list-support.so ...
; loading /usr/local/lib/chicken/3/stack-support.so ...
; loading /usr/local/lib/chicken/3/srfi-19-period.so ...
#;2> (define (make-date-ymd year month day) (make-date 0 0 0 12 day
month year 0))
#;3> (date=? (make-date-ymd 2008 11 24) (make-date-ymd 2008 11 04))
#t
#;4> (date<? (make-date-ymd 2008 11 04) (make-date-ymd 2008 11 24))
#f
#;5>

-- 
Anthony Carrico

signature.asc
Description: OpenPGP digital signature