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
This commit is contained in:
Matthew Flatt 2010-07-20 06:36:24 -06:00
parent 5cc0baa01e
commit ce03a34318
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 ([(s) (cadr name)])
(let-values ([(parts) (split s #rx"/" +inf.0)]) (let-values ([(parts) (split s #rx"/" +inf.0)])
(if (= 1 (length parts)) (if (= 1 (length parts))
name (list* 'planet
(ss->rkt (cadr name))
(cddr name))
(list* 'planet (list* 'planet
(ss->rkt (last-of parts)) (ss->rkt (last-of parts))
(caddr name) (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 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.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 "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)) (void))
@ -469,11 +470,11 @@
;; ---------------------------------------- ;; ----------------------------------------
;(try-basic) (try-basic)
;(try-mzc) (try-mzc)
;(try-extension) (try-extension)
;(try-gracket) (try-gracket)
;(try-reader) (try-reader)
(try-planet) (try-planet)
;; ---------------------------------------- ;; ----------------------------------------