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

Added types to the srcloc structure.

Browse Source 
svn: r15201

original commit: 21033a3e3c9af14c0bd06c291b0e9c779e43b869
This commit is contained in:
Carl Eastlund 2009-06-17 22:28:21 +00:00
parent db8dddad38
commit ee04be2096
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-scheme/private/base-special-env.ss
View File

@ -23,7 +23,14 @@
(only-in (types convenience) [make-arr* make-arr])
(typecheck tc-structs)))
(define-for-syntax (initialize-others)
(define-for-syntax (initialize-others)
(d-s srcloc
([source : Univ]
[line : (*Un -Integer (-val #f))]
[column : (*Un -Integer (-val #f))]
[position : (*Un -Integer (-val #f))]
[span : (*Un -Integer (-val #f))])
())
(d-s date
([second : -Number] [minute : -Number] [hour : -Number] [day : -Number] [month : -Number]
[year : -Number] [weekday : -Number] [year-day : -Number] [dst? : -Boolean] [time-zone-offset : -Number])