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

guard against failing module-name-resolvers

Browse Source 
svn: r5997
This commit is contained in:
Robby Findler 2007-04-19 18:11:08 +00:00
parent e5698365c9
commit 38d5a4f8c6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/syncheck.ss
View File

@ -2034,7 +2034,8 @@ If the namespace does not, they are colored the unbound color.
(parameterize ([current-namespace user-namespace]
[current-directory user-directory]
[current-load-relative-directory user-directory])
((current-module-name-resolver) datum #f #f)))])
(with-handlers ([exn:fail? (λ (x) #f)])
((current-module-name-resolver) datum #f #f))))])
(and (symbol? sym)
(module-name-sym->filename sym))))