raco pkg: fix binary stripping of submodules

This commit is contained in:
Matthew Flatt 2014-06-04 09:33:36 +01:00
parent 5058c958a6
commit 4b5c907440

View File

@ -185,9 +185,9 @@
(module-compiled-submodules (module-compiled-submodules
(module-compiled-submodules mod (module-compiled-submodules mod
#f #f
mod-subs) new-mod-subs)
#t #t
mod*-subs)))) new-mod*-subs))))
(unless (eq? mod new-mod) (unless (eq? mod new-mod)
(call-with-output-file* (call-with-output-file*
new-p new-p