From 5eaf286081f253b498f72082e19dbc15e55e4204 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Oct 2012 16:14:29 -0600
Subject: [PATCH] fix `raco exe' for `module+' submodules

Closes PR 13116

Merge to v5.3.1

original commit: e1a6d2b07d263ababc89642ab78f6e17fce19be4
---
 collects/tests/racket/embed-me20.rkt | 7 +++++++
 collects/tests/racket/embed.rktl     | 8 ++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 collects/tests/racket/embed-me20.rkt

diff --git a/collects/tests/racket/embed-me20.rkt b/collects/tests/racket/embed-me20.rkt
new file mode 100644
index 0000000000..d4b8fe1586
--- /dev/null
+++ b/collects/tests/racket/embed-me20.rkt
@@ -0,0 +1,7 @@
+#lang racket/base
+
+;; like "embed-me16.rkt" using `module+'
+(module+ main
+  (with-output-to-file "stdout"
+    (lambda () (printf "This is 20.\n"))
+    #:exists 'append))
diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl
index 47c5183ea7..39da0cdd83 100644
--- a/collects/tests/racket/embed.rktl
+++ b/collects/tests/racket/embed.rktl
@@ -288,6 +288,14 @@
 	     (path->string (build-path (collection-path "tests" "racket") "embed-me16.rkt")))
     (try-exe (mk-dest mred?) "This is 16.\n" mred?)
 
+    ;; raco exe on a module with a `main' submodule+
+    (system* raco
+             "exe"
+	     "-o" (path->string (mk-dest mred?))
+	     (if mred? "--gui" "--")
+	     (path->string (build-path (collection-path "tests" "racket") "embed-me20.rkt")))
+    (try-exe (mk-dest mred?) "This is 20.\n" mred?)
+
     ;;raco exe --launcher
     (system* raco
              "exe"