From ee04be2096bfbe28a2482b007cfc82c19a484007 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Wed, 17 Jun 2009 22:28:21 +0000 Subject: [PATCH] Added types to the srcloc structure. svn: r15201 original commit: 21033a3e3c9af14c0bd06c291b0e9c779e43b869 --- collects/typed-scheme/private/base-special-env.ss | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/base-special-env.ss b/collects/typed-scheme/private/base-special-env.ss index fbfae79e..0e5de962 100644 --- a/collects/typed-scheme/private/base-special-env.ss +++ b/collects/typed-scheme/private/base-special-env.ss @@ -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])