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
This commit is contained in:
Matthew Flatt 2010-07-19 13:55:23 -06:00
parent 5417d7a5b7
commit f602d11a7f
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)) (if (= 1 (length parts))
name name
(list* 'planet (list* 'planet
(last-of parts) (ss->rkt (last-of parts))
(caddr name) (caddr name)
(append (append
(cdddr name) (cdddr name)
@ -721,7 +721,6 @@
#f))] #f))]
[(planet-match?) [(planet-match?)
(lambda (a b) (lambda (a b)
(eprintf "pmatch? ~s ~s\n" a b)
(if (equal? (cons (car a) (cddr a)) (if (equal? (cons (car a) (cddr a))
(cons (car b) (cddr b))) (cons (car b) (cddr b)))
(let-values ([(a) (cadr a)] (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/alt) "one\nalt\n")
(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")
(void)) (void))
@ -468,11 +469,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)
;; ---------------------------------------- ;; ----------------------------------------