suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typed scheme reader for new reader API.

Browse Source 
svn: r9182
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-07 21:03:27 +00:00
parent 7a29625659
commit b800f4ed3e
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/typed-scheme/lang/reader.ss
View File

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