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

raco exe: fix missing ss->rkt conversion and remove debugging printf

Browse Source 
Merge to 5.0.1
(cherry picked from commit f602d11a7f)
This commit is contained in:
Matthew Flatt 2010-07-19 13:55:23 -06:00 committed by Eli Barzilay
parent 1f383eb5c7
commit 77a0796a6c
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -712,7 +712,7 @@
(if (= 1 (length parts))
name
(list* 'planet
(last-of parts)
(ss->rkt (last-of parts))
(caddr name)
(append
(cdddr name)
@ -721,7 +721,6 @@
#f))]
[(planet-match?)
(lambda (a b)
(eprintf "pmatch? ~s ~s\n" a b)
(if (equal? (cons (car a) (cddr a))
(cons (car b) (cddr b)))
(let-values ([(a) (cadr a)]

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

@ -460,6 +460,7 @@
(go '(planet racket-tester/p1/alt) "one\nalt\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.ss" ("racket-tester" "p2.plt" 2 0)) "two\nsub\n")
(void))
@ -468,11 +469,11 @@
;; ----------------------------------------
(try-basic)
(try-mzc)
(try-extension)
(try-gracket)
(try-reader)
;(try-basic)
;(try-mzc)
;(try-extension)
;(try-gracket)
;(try-reader)
(try-planet)
;; ----------------------------------------