From e85c17b090a088eb4cbdadc87f3fef0dbd864702 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Sep 2011 20:20:05 -0600 Subject: [PATCH] add `date*' and `exn:fail:syntax:unbound' The `date*' structure type is an extension of `date' with `nanosecond' and `time-zone-name' fields. The `seconds->date' function now accepts a real and returns a `date*'. The fractional part of its argument goes into the `nanosecond' field. original commit: ac8990d5195312fa7c71966bdfaa925905902ca8 --- collects/tests/racket/structlib.rktl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/racket/structlib.rktl b/collects/tests/racket/structlib.rktl index fc07a82..0bc13c8 100644 --- a/collects/tests/racket/structlib.rktl +++ b/collects/tests/racket/structlib.rktl @@ -7,10 +7,10 @@ (let* ([now (seconds->date (current-seconds))] [v (modulo (add1 (date-second now)) 60)]) - (test #t equal? now (copy-struct date now)) - (test #f equal? now (copy-struct date now (date-second v))) - (test v date-second (copy-struct date now (date-second v))) - (test (date-year now) date-year (copy-struct date now (date-second v)))) + (test #t equal? now (copy-struct date* now)) + (test #f equal? now (copy-struct date* now (date-second v))) + (test v date-second (copy-struct date* now (date-second v))) + (test (date-year now) date-year (copy-struct date* now (date-second v)))) (err/rt-test (copy-struct date 10)) (err/rt-test (copy-struct date 10 (date-second 0)))