From d0d458e1a379f9b72cda8e533e149d31994c4b22 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Nov 2013 13:21:45 -0700
Subject: [PATCH] raco exe: fix problem with dynamically resolved relative
 submodules

original commit: 846c247aa3896ad06380ab2e89d0f36149f1260b
---
 pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt | 8 ++++++++
 pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl     | 8 ++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt

diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt
new file mode 100644
index 0000000000..2f6eb92c10
--- /dev/null
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt
@@ -0,0 +1,8 @@
+#lang racket/base
+(require racket/serialize)
+
+(serializable-struct foo (a b))
+
+(define f (deserialize (serialize (foo 1 2))))
+(foo-a f)
+(foo-b f)
diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl
index 0a2527aa46..8b5e246814 100644
--- a/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl
@@ -312,6 +312,14 @@
 	     (path->string (build-path (collection-path "tests" "racket") "embed-me22.rkt")))
     (try-exe (mk-dest mred?) "Configure!\nThis is 22.\n" mred?)
 
+    ;; raco exe on a module with serialization
+    (system* raco
+             "exe"
+	     "-o" (path->string (mk-dest mred?))
+	     (if mred? "--gui" "--")
+	     (path->string (build-path (collection-path "tests" "racket") "embed-me23.rkt")))
+    (try-exe (mk-dest mred?) "1\n2\n" mred?)
+
     ;; raco exe --launcher
     (system* raco
              "exe"