Did you consider adding a test case? Robby
On Fri, Apr 12, 2013 at 12:23 AM, <e...@racket-lang.org> wrote: > eli has updated `master' from a425ee5207 to b5771e6ade. > http://git.racket-lang.org/plt/a425ee5207..b5771e6ade > > =====[ One Commit ]===================================================== > Directory summary: > 100.0% collects/xrepl/ > > ~~~~~~~~~~ > > b5771e6 Eli Barzilay <e...@racket-lang.org> 2013-04-12 01:18 > : > | Avoid loading modules in `module->path' and `known-module'. > | > | This is particularly problematic for `require-reloadable'. > | > | Closes PR 13688. > : > M collects/xrepl/xrepl.rkt | 4 ++-- > > =====[ Overall Diff ]=================================================== > > collects/xrepl/xrepl.rkt > ~~~~~~~~~~~~~~~~~~~~~~~~ > --- OLD/collects/xrepl/xrepl.rkt > +++ NEW/collects/xrepl/xrepl.rkt > @@ -79,7 +79,7 @@ > [_ (or (with-handlers ([exn:fail? (λ (_) #f)]) > (define r > (resolved-module-path-name > - ((current-module-name-resolver) mod #f #f))) > + ((current-module-name-resolver) mod #f #f #f))) > (if (not mode) > (and r mod) > ;; sanity check that path results exists > @@ -89,7 +89,7 @@ > ;; for symbols, try also 'mod > (and (symbol? mod) (known-top `',mod)))])) > (define (module->path module) > - (resolved-module-path-name ((current-module-name-resolver) module #f > #f))) > + (resolved-module-path-name ((current-module-name-resolver) module #f #f > #f))) > > (define (mpi->name mpi) > (resolved-module-path-name (module-path-index-resolve mpi))) >
_________________________ Racket Developers list: http://lists.racket-lang.org/dev