From 6c79f0d39975a24038ea67269e6e92ae244b389c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 20 Jul 2010 06:36:24 -0600 Subject: [PATCH] another ss->rkt repair to exe creator Merge to 5.0.1 (cherry picked from commit ce03a3431829ac54a1cccfc392881eca1b766dcd) --- collects/compiler/embed-unit.rkt | 4 +++- collects/tests/racket/embed.rktl | 11 ++++++----- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/compiler/embed-unit.rkt b/collects/compiler/embed-unit.rkt index 12f93d1b0a..167848e9a5 100644 --- a/collects/compiler/embed-unit.rkt +++ b/collects/compiler/embed-unit.rkt @@ -710,7 +710,9 @@ (let-values ([(s) (cadr name)]) (let-values ([(parts) (split s #rx"/" +inf.0)]) (if (= 1 (length parts)) - name + (list* 'planet + (ss->rkt (cadr name)) + (cddr name)) (list* 'planet (ss->rkt (last-of parts)) (caddr name) diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl index 16a4e71a87..457f2ea6b4 100644 --- a/collects/tests/racket/embed.rktl +++ b/collects/tests/racket/embed.rktl @@ -461,6 +461,7 @@ (go '(planet racket-tester/p1/other) "two\nother\n") (go '(planet "private/sub.rkt" ("racket-tester" "p2.plt" 2 0)) "two\nsub\n") (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") (void)) @@ -469,11 +470,11 @@ ;; ---------------------------------------- -;(try-basic) -;(try-mzc) -;(try-extension) -;(try-gracket) -;(try-reader) +(try-basic) +(try-mzc) +(try-extension) +(try-gracket) +(try-reader) (try-planet) ;; ----------------------------------------