From 989aedc09a6c562fc5a8fdf414ccc5db948125fb Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 1 Sep 2008 04:26:54 +0000 Subject: [PATCH] use the new facility for the typed-scheme reader svn: r11504 --- collects/typed-scheme/lang/reader.ss | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/collects/typed-scheme/lang/reader.ss b/collects/typed-scheme/lang/reader.ss index 554ba60211..0a919940e8 100644 --- a/collects/typed-scheme/lang/reader.ss +++ b/collects/typed-scheme/lang/reader.ss @@ -1,13 +1,8 @@ -#lang scheme/base -(require (prefix-in r: "../typed-reader.ss") - (only-in syntax/module-reader wrap-read-all)) +#lang s-exp syntax/module-reader -(define (*read in modpath line col pos) - (wrap-read-all 'typed-scheme in r:read modpath #f line col pos)) +typed-scheme -(define (*read-syntax src in modpath line col pos) - (wrap-read-all - 'typed-scheme in (lambda (in) (r:read-syntax src in)) - modpath src line col pos)) +#:read r:read +#:read-syntax r:read-syntax -(provide (rename-out [*read read] [*read-syntax read-syntax])) +(require (prefix-in r: "../typed-reader.ss"))