Thanks Matthew,<div><br></div><div>Is this also the same/similar bug but with submodule path as filename?<br></div><div><br></div><div>This works:</div><div>-----------------------------------------------------------------</div> <div>#lang racket ;; client.rkt<br> (require (submod "things.rkt" extra-things))<br> (displayln thing-a)<br> </div><div><br></div><div>#lang racket ;; things.rkt<br>(provide thing-a thing-b)<br><br>(define thing-a 'thing-a)<br> (define thing-b 'thing-b)<br><br>(module+ extra-things<br> (provide (all-from-out (submod "..")))<br> (provide all-defined-out)<br> <br> (define extra-thing-c 'extra-thing-c)<br> (define extra-thing-d 'extra-thing-d))<br> <br> </div><div>RUNNING client.rkt GIVES:</div><div><br></div><div>> thing-a</div><div>------------------------------</div><div>BUT</div><div><br></div><div>#lang racket ;; client.rkt<br> (require (submod "things.rkt" extra-things))<br> (displayln thing-a)<br> </div><div><br></div><div>#lang racket ;; things.rkt<br>(provide thing-a thing-b)<br><br>(define thing-a 'thing-a)<br>(define thing-b 'thing-b)<br><br>(module+ extra-things<br> (provide (all-from-out "things.rkt")) ;;CHANGED (submod "..")<br> ;;TO "things.rkt"<br> (provide all-defined-out)<br> <br> (define extra-thing-c 'extra-thing-c)<br> (define extra-thing-d 'extra-thing-d))<br> </div><div>------------------------</div><div>RUNNING client.rkt GIVES ERROR</div><div>things.rkt:8:25: all-from-out: no corresponding require in: "things.rkt"</div><div><br></div><div>Thanks,</div><div>Harry Spier</div> <br><div class="gmail_quote">On Fri, Nov 23, 2012 at 10:31 AM, Matthew Flatt <span dir="ltr"><<a href="mailto:mflatt@cs.utah.edu" target="_blank">mflatt@cs.utah.edu</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> That's a bug. I've pushed a repair to the git repo.<br> <br> Thanks for the report!<br> <div><div class="h5"><br> At Tue, 20 Nov 2012 23:19:30 -0500, Harry Spier wrote:<br> > Dear list members,<br> ><br> > This works in DrRacket:<br> > definitions window<br> > -------------------------<br> > #lang racket<br> > (module+ server<br> > (provide a-from-server)<br> > (define a-from-server 'a-from-server))<br> ><br> > (module+ client<br> > (module server2 racket<br> > (provide b-from-server2)<br> > (define b-from-server2 'b-from-server2))<br> ><br> > (require (submod ".." server))<br> > (provide (all-from-out (submod ".." server)))<br> ><br> > (require 'server2)<br> > (provide (all-from-out (submod "." server2))))<br> ><br> > (module+ main<br> > (require (submod ".." client))<br> > a-from-server<br> > b-from-server2)<br> ><br> > Results in interactions window<br> > ---------------<br> > ><br> > 'a-from-server<br> > 'b-from-server2<br> ><br> > BUT the following gives me the error: "all-from-out: no corresponding<br> > require in: (quote server2)"<br> > Could someone explain why I'm getting this error.<br> ><br> > Definitions window<br> > ------------------<br> > #lang racket<br> > (module+ server<br> > (provide a-from-server)<br> > (define a-from-server 'a-from-server))<br> ><br> > (module+ client<br> > (module server2 racket<br> > (provide b-from-server2)<br> > (define b-from-server2 'b-from-server2))<br> ><br> > (require (submod ".." server))<br> > (provide (all-from-out (submod ".." server)))<br> ><br> > (require 'server2)<br> > (provide (all-from-out 'server2))) ;;;CHANGED (submod "." server2) TO<br> > 'server2<br> ><br> > (module+ main<br> > (require (submod ".." client))<br> > a-from-server<br> > b-from-server2)<br> ><br> > Thanks,<br> > Harry Spier<br> </div></div>> ____________________<br> > Racket Users list:<br> > <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br> <br> </blockquote></div><br>