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

Use correct parent for date* in makeexn

Browse Source 
Please merge to 5.3.2
(cherry picked from commit 2ac6615da9)
This commit is contained in:
Asumu Takikawa 2013-01-11 21:04:34 -05:00 committed by Ryan Culpepper
parent e5ca4a4e4b
commit 94e14e1df8
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/private/kernstruct.rkt
View File

@ -537,7 +537,7 @@
(quote-syntax date-minute) (quote-syntax date-minute)
(quote-syntax date-second)) (quote-syntax date-second))
'(#f #f #f #f #f #f #f #f #f #f #f #f) '(#f #f #f #f #f #f #f #f #f #f #f #f)
#t)) (quote-syntax date)))
(λ () (quote-syntax kernel:date*))))) (λ () (quote-syntax kernel:date*)))))
(begin (begin
(#%require (rename '#%kernel kernel:srcloc srcloc)) (#%require (rename '#%kernel kernel:srcloc srcloc))

5
collects/tests/racket/date.rktl
View File

@ -99,4 +99,9 @@
(test "JD 12" julian/scalinger->string 12) (test "JD 12" julian/scalinger->string 12)
(test "JD 123" julian/scalinger->string 123) (test "JD 123" julian/scalinger->string 123)
;; make sure that date* has the correct parent info
(test #t date*?
(struct-copy date* (seconds->date (current-seconds))
[hour #:parent date 5]))
(report-errs) (report-errs)

2
src/racket/src/makeexn
View File

@ -253,7 +253,7 @@ Not an exception in the above sense:
date-month date-day date-hour date-minute date-second) #t) date-month date-day date-hour date-minute date-second) #t)
(date* (date*-time-zone-name date*-nanosecond (date* (date*-time-zone-name date*-nanosecond
date-time-zone-offset date-dst? date-year-day date-week-day date-year date-time-zone-offset date-dst? date-year-day date-week-day date-year
date-month date-day date-hour date-minute date-second) #t) date-month date-day date-hour date-minute date-second) date)
(srcloc (srcloc-span srcloc-position srcloc-column srcloc-line srcloc-source) #t)))) (srcloc (srcloc-span srcloc-position srcloc-column srcloc-line srcloc-source) #t))))
(with-output-to-file filename #:exists 'replace (with-output-to-file filename #:exists 'replace