From b800f4ed3e3c66cb879bb2b26258ea3cda23cf56 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 7 Apr 2008 21:03:27 +0000 Subject: [PATCH] Fix typed scheme reader for new reader API. svn: r9182 --- collects/typed-scheme/lang/reader.ss | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/collects/typed-scheme/lang/reader.ss b/collects/typed-scheme/lang/reader.ss index 2744227875..554ba60211 100644 --- a/collects/typed-scheme/lang/reader.ss +++ b/collects/typed-scheme/lang/reader.ss @@ -2,13 +2,12 @@ (require (prefix-in r: "../typed-reader.ss") (only-in syntax/module-reader wrap-read-all)) -(define (*read in) - (wrap-read-all 'typed-scheme in r:read)) +(define (*read in modpath line col pos) + (wrap-read-all 'typed-scheme in r:read modpath #f line col pos)) -(define (*read-syntax src in) - (wrap-read-all 'typed-scheme - in - (lambda (in) - (r:read-syntax src in)))) +(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)) (provide (rename-out [*read read] [*read-syntax read-syntax]))