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

Chez Scheme: maybe-compile-program now returns void

Browse Source
This commit is contained in:
Bob Burger 2021-04-09 14:40:31 -04:00 committed by Matthew Flatt
parent 17bc9b2b33
commit c6608d78d3
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/ChezScheme/mats/7.ms
View File

@ -488,7 +488,7 @@
(separate-eval '(load-program "testfile-mc-foo.so"))
"(\"a\" \"b\" \"c\")\n")
(touch "testfile-mc-foo.so" "testfile-mc-a.ss")
((lambda (x ls) (and (member x ls) #t))
(equal?
(let ([mt* (map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))])
(let ([s (separate-compile '(lambda (x) (parameterize ([compile-program-handler (lambda (ifn ofn) (printf "yippee!\n") (compile-program ifn ofn))]
[compile-imported-libraries #t]
@ -501,8 +501,7 @@
(map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))
mt*)
s)))
'(((> > >) . "yippee!\n((testfile-mc-a) (testfile-mc-b))\n")
((> > >) . "yippee!\n((testfile-mc-b) (testfile-mc-a))\n")))
'((> > >) . "yippee!\n"))
(equal?
(let ([mt* (map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))])
(let ([s (separate-compile '(lambda (x) (parameterize ([compile-imported-libraries #t] [compile-file-message #f]) (maybe-compile-program x))) 'mc-foo)])
@ -512,7 +511,7 @@
(map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))
mt*)
s)))
'((= = =) . "#f\n"))
'((= = =) . ""))
(equal?
(separate-eval '(load-program "testfile-mc-foo.so"))
"(\"a\" \"b\" \"c\")\n")

6
racket/src/ChezScheme/s/compile.ss
View File

@ -2233,11 +2233,13 @@
[(in out)
(unless (string? in) ($oops who "~s is not a string" in))
(unless (string? out) ($oops who "~s is not a string" out))
($maybe-compile-file who in out (compile-program-handler))]
($maybe-compile-file who in out (compile-program-handler))
(void)]
[(in)
(unless (string? in) ($oops who "~s is not a string" in))
(let-values ([(in out) (in&out in)])
($maybe-compile-file who in out (compile-program-handler)))]))
($maybe-compile-file who in out (compile-program-handler)))
(void)]))
(set-who! compile-to-file
(rec compile-to-file