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