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

add some missing prefixes for static struct info

Browse Source 
svn: r16219
This commit is contained in:
Matthew Flatt 2009-10-02 17:38:15 +00:00
parent 0520a50f3e
commit 4e35bda756
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
collects/scheme/private/kernstruct.ss
View File

@ -232,16 +232,16 @@
(quote-syntax make-date) (quote-syntax make-date)
(quote-syntax date?) (quote-syntax date?)
(list (list
(quote-syntax time-zone-offset) (quote-syntax date-time-zone-offset)
(quote-syntax dst?) (quote-syntax date-dst?)
(quote-syntax year-day) (quote-syntax date-year-day)
(quote-syntax week-day) (quote-syntax date-week-day)
(quote-syntax year) (quote-syntax date-year)
(quote-syntax month) (quote-syntax date-month)
(quote-syntax day) (quote-syntax date-day)
(quote-syntax hour) (quote-syntax date-hour)
(quote-syntax minute) (quote-syntax date-minute)
(quote-syntax 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)
#t)))) #t))))
(define-syntax srcloc (define-syntax srcloc
@ -252,10 +252,10 @@
(quote-syntax make-srcloc) (quote-syntax make-srcloc)
(quote-syntax srcloc?) (quote-syntax srcloc?)
(list (list
(quote-syntax span) (quote-syntax srcloc-span)
(quote-syntax position) (quote-syntax srcloc-position)
(quote-syntax column) (quote-syntax srcloc-column)
(quote-syntax line) (quote-syntax srcloc-line)
(quote-syntax source)) (quote-syntax srcloc-source))
'(#f #f #f #f #f) '(#f #f #f #f #f)
#t))))) #t)))))