suzanne.soy/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
This commit is contained in:
Carl Eastlund 2009-06-17 22:28:21 +00:00
parent f110157ac2
commit 21033a3e3c
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]) (only-in (types convenience) [make-arr* make-arr])
(typecheck tc-structs))) (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 (d-s date
([second : -Number] [minute : -Number] [hour : -Number] [day : -Number] [month : -Number] ([second : -Number] [minute : -Number] [hour : -Number] [day : -Number] [month : -Number]
[year : -Number] [weekday : -Number] [year-day : -Number] [dst? : -Boolean] [time-zone-offset : -Number]) [year : -Number] [weekday : -Number] [year-day : -Number] [dst? : -Boolean] [time-zone-offset : -Number])