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

allow negative years in a 'date' structure

Browse Source 
svn: r13728
This commit is contained in:
Matthew Flatt 2009-02-18 21:29:58 +00:00
parent 7e1ea98876
commit ada4a7aeae
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribblings/reference/time.scrbl
View File

@ -33,7 +33,7 @@ portability is needed.}
[hour (integer-in 0 23)]
[day (integer-in 1 31)]
[month (integer-in 1 12)]
[year exact-nonnegative-integer?]
[year exact-integer?]
[week-day (integer-in 0 6)]
[year-day (integer-in 0 365)]
[dst? boolean?]

5
src/mzscheme/src/struct.c
View File

@ -3694,9 +3694,8 @@ static Scheme_Object *check_date_fields(int argc, Scheme_Object **argv)
if (!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 1) || (SCHEME_INT_VAL(a) > 12))
scheme_wrong_field_type(argv[10], "integer in [1, 12]", a);
a = argv[5];
if ((!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 0))
&& (!SCHEME_BIGNUMP(a) || !SCHEME_BIGPOS(a)))
scheme_wrong_field_type(argv[10], "nonnegative exact integer", a);
if (!SCHEME_INTP(a) && !SCHEME_BIGNUMP(a))
scheme_wrong_field_type(argv[10], "exact integer", a);
a = argv[6];
if (!SCHEME_INTP(a) || (SCHEME_INT_VAL(a) < 0) || (SCHEME_INT_VAL(a) > 6))
scheme_wrong_field_type(argv[10], "integer in [0, 6]", a);