From f6441369d96142edd49351956ea2a761593cdaad Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 23 Sep 2012 10:47:24 -0500 Subject: [PATCH] raco exe: handle failing submodule search correctly An attempt to detect a submodule could trigger the original module name resolver when the would-be enclosing module would be handled by the embedding-specific resolver. When a submodule is not found but its would-be enclosing module is embedded, then assume that the default resolver wouldn't find the submodule, eithe --- and therefore avoid a potential "collection not found" error. original commit: 3fb12b4ff48276a744d80a8d4bb1fc1655c6cabd --- collects/tests/racket/embed-me19.rkt | 13 +++++++++++++ collects/tests/racket/embed.rktl | 1 + 2 files changed, 14 insertions(+) create mode 100644 collects/tests/racket/embed-me19.rkt diff --git a/collects/tests/racket/embed-me19.rkt b/collects/tests/racket/embed-me19.rkt new file mode 100644 index 0000000000..158643bc6c --- /dev/null +++ b/collects/tests/racket/embed-me19.rkt @@ -0,0 +1,13 @@ +#lang racket/base +(require racket/runtime-path) + +(define-runtime-module-path plai plai) +(define-runtime-module-path plai-reader plai/lang/reader) + +(parameterize ([read-accept-reader #t]) + (namespace-require 'racket/base) + (eval (read (open-input-string "#lang plai 10")))) + +(with-output-to-file "stdout" + (lambda () (printf "This is 19.\n")) + #:exists 'append) diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl index 9f95f62cf1..5c7b6ba662 100644 --- a/collects/tests/racket/embed.rktl +++ b/collects/tests/racket/embed.rktl @@ -226,6 +226,7 @@ (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) + (one-mz-test "embed-me19.rkt" "This is 19.\n" #f) ;; Try unicode expr and cmdline: (prepare dest "unicode")