suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

another ss->rkt repair to exe creator

Browse Source 
Merge to 5.0.1
(cherry picked from commit ce03a34318)
This commit is contained in:
Matthew Flatt 2010-07-20 06:36:24 -06:00 committed by Eli Barzilay
parent 77a0796a6c
commit 6c79f0d399
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/embed-unit.rkt
View File

@ -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)

11
collects/tests/racket/embed.rktl
View File

@ -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)
;; ----------------------------------------