From 8d3d7b10d39cf97fc11aaf848b81e60ac5543631 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 18 Jun 2006 02:00:13 +0000
Subject: [PATCH] new support file for make-executable tests

svn: r3392
---
 collects/tests/mzscheme/embed-me6.ss | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 collects/tests/mzscheme/embed-me6.ss

diff --git a/collects/tests/mzscheme/embed-me6.ss b/collects/tests/mzscheme/embed-me6.ss
new file mode 100644
index 0000000000..74ec1f8354
--- /dev/null
+++ b/collects/tests/mzscheme/embed-me6.ss
@@ -0,0 +1,8 @@
+(module embed-me6 mzscheme
+  (with-output-to-file "stdout"
+    (lambda () 
+      (printf "This is 6\n")
+      (with-handlers ([void (lambda (exn) (printf "no etc.ss\n"))])
+	(printf "~a\n" (dynamic-require '(lib "etc.ss") 'true))))
+    'append))
+