<div dir="ltr">Did you consider adding a test case?<div><br>Robby</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Apr 12, 2013 at 12:23 AM, <span dir="ltr"><<a href="mailto:eli@racket-lang.org" target="_blank">eli@racket-lang.org</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">eli has updated `master' from a425ee5207 to b5771e6ade.<br>
<a href="http://git.racket-lang.org/plt/a425ee5207..b5771e6ade" target="_blank">http://git.racket-lang.org/plt/a425ee5207..b5771e6ade</a><br>
<br>
=====[ One Commit ]=====================================================<br>
Directory summary:<br>
100.0% collects/xrepl/<br>
<br>
~~~~~~~~~~<br>
<br>
b5771e6 Eli Barzilay <<a href="mailto:eli@racket-lang.org">eli@racket-lang.org</a>> 2013-04-12 01:18<br>
:<br>
| Avoid loading modules in `module->path' and `known-module'.<br>
|<br>
| This is particularly problematic for `require-reloadable'.<br>
|<br>
| Closes PR 13688.<br>
:<br>
M collects/xrepl/xrepl.rkt | 4 ++--<br>
<br>
=====[ Overall Diff ]===================================================<br>
<br>
collects/xrepl/xrepl.rkt<br>
~~~~~~~~~~~~~~~~~~~~~~~~<br>
--- OLD/collects/xrepl/xrepl.rkt<br>
+++ NEW/collects/xrepl/xrepl.rkt<br>
@@ -79,7 +79,7 @@<br>
[_ (or (with-handlers ([exn:fail? (λ (_) #f)])<br>
(define r<br>
(resolved-module-path-name<br>
- ((current-module-name-resolver) mod #f #f)))<br>
+ ((current-module-name-resolver) mod #f #f #f)))<br>
(if (not mode)<br>
(and r mod)<br>
;; sanity check that path results exists<br>
@@ -89,7 +89,7 @@<br>
;; for symbols, try also 'mod<br>
(and (symbol? mod) (known-top `',mod)))]))<br>
(define (module->path module)<br>
- (resolved-module-path-name ((current-module-name-resolver) module #f #f)))<br>
+ (resolved-module-path-name ((current-module-name-resolver) module #f #f #f)))<br>
<br>
(define (mpi->name mpi)<br>
(resolved-module-path-name (module-path-index-resolve mpi)))<br>
</blockquote></div><br></div>