use the new facility for the typed-scheme reader

svn: r11504
This commit is contained in:
Eli Barzilay 2008-09-01 04:26:54 +00:00
parent 9e5c466c47
commit 989aedc09a

View File

@ -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"))