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

properly use module-reader

Browse Source 
svn: r11770

original commit: 52f0e100a7b7825a76e82cfb9a9ffc7b99c78118
This commit is contained in:
Eli Barzilay 2008-09-15 23:09:25 +00:00
parent 593b26228e
commit 5b6cf7448d
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/typed-scheme/no-check/lang/reader.ss
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/no-check in r:read modpath #f line col pos))
typed-scheme/no-check
(define (*read-syntax src in modpath line col pos)
(wrap-read-all
'typed-scheme/no-check 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"))