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

fix mzc --include-compiled (PR 9900)

Browse Source 
svn: r12384
This commit is contained in:
Matthew Flatt 2008-11-11 15:36:33 +00:00
parent 54a8fe3143
commit c4f994658c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/main.ss
View File

@ -657,7 +657,8 @@
#:extra-setup-collections (map list (plt-setup-collections)) #:extra-setup-collections (map list (plt-setup-collections))
#:file-filter (if (plt-include-compiled) #:file-filter (if (plt-include-compiled)
(lambda (path) (lambda (path)
(or (regexp-match #rx"compiled$" path) (std-filter path))) (or (regexp-match #rx#"compiled$" (path->bytes path))
(std-filter path)))
std-filter) std-filter)
#:at-plt-home? (plt-files-plt-home-relative?) #:at-plt-home? (plt-files-plt-home-relative?)
#:test-plt-collects? (not (plt-force-install-dir?))) #:test-plt-collects? (not (plt-force-install-dir?)))