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
_______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
