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

record modules loaded by the planet reader via current-reader-guard

Browse Source 
svn: r12752
This commit is contained in:
Matthew Flatt 2008-12-09 11:37:57 +00:00
parent 8b3f58c371
commit e004ae390b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet/lang/reader.ss
View File

@ -29,7 +29,9 @@
`(planet ,(string->symbol (string-append str lang-mod)))
#f))])
(if parsed-spec
(dynamic-require parsed-spec export-sym (mk-fail-thunk spec))
(begin
((current-reader-guard) parsed-spec)
(dynamic-require parsed-spec export-sym (mk-fail-thunk spec)))
(bad (cadr spec) #f))))))
(define (get-info in mod line col pos)