more submodule repairs for `raco exe'

original commit: a605183a0a

collects/tests/racket/embed-me17.rkt

@@ -0,0 +1,2 @@
+#lang racket/base
+(require (submod "embed-me17a.rkt" sub))

collects/tests/racket/embed-me17a.rkt

@@ -0,0 +1,9 @@
+#lang racket
+
+(define print-17
+  (lambda () (printf "This is 17.\n")))
+
+(module+ sub
+  (with-output-to-file "stdout"
+    print-17
+    #:exists 'append))

collects/tests/racket/embed-me18a.rkt

@@ -0,0 +1,9 @@
+#lang racket/base
+(module sub racket/base
+  (provide print-18)
+  (define (print-18)
+    (printf "This is 18.\n")))
+
+
+
+  

collects/tests/racket/embed-planet-1/dyn-sub.rkt

@@ -0,0 +1,8 @@
+#lang racket/base
+(require (submod (planet racket-tester/p1/has-sub) the-sub))
+
+(with-output-to-file "stdout"
+  #:exists 'append
+  (lambda () (displayln (dynamic-require
+                         '(submod (planet racket-tester/p1/has-sub) the-sub)
+                         'out))))

collects/tests/racket/embed-planet-1/has-sub.rkt

@@ -1,3 +1,6 @@
 #lang racket/base
 
-(module+ the-sub)
+(module+ the-sub
+  (provide out)
+  (define out 'out))
+

collects/tests/racket/embed.rktl

@@ -224,6 +224,8 @@
   (one-mz-test "embed-me13.rkt" "This is 14\n" #f)
   (one-mz-test "embed-me14.rkt" "This is 14\n" #f)
   (one-mz-test "embed-me15.rkt" "This is 15.\n" #f)
+  (one-mz-test "embed-me17.rkt" "This is 17.\n" #f)
+  (one-mz-test "embed-me18.rkt" "This is 18.\n" #f)
 
   ;; Try unicode expr and cmdline:
   (prepare dest "unicode")
@@ -501,6 +503,8 @@
     (go '(planet "private/sub.ss" ("racket-tester" "p2.plt" 2 0)) "two\nsub\n")
     (go '(planet "main.ss" ("racket-tester" "p2.plt" 2 0)) "two\n")
 
+    (go '(planet racket-tester/p1/dyn-sub) "out\n")
+
     (void))
   
   (system* planet "unlink" "racket-tester" "p1.plt" "1" "0")