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

fix use of .ss when .rkt exists in executable creation

Browse Source 
more generally, fixes anything tha uses syntax/modcode
This commit is contained in:
Matthew Flatt 2010-06-05 16:48:34 -06:00
parent d981a386d5
commit 773d0f6d70
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/syntax/modcode.rkt
View File

@ -107,8 +107,9 @@
(build-path base alt-file)))] (build-path base alt-file)))]
[(base) (if (eq? base 'relative) 'same base)] [(base) (if (eq? base 'relative) 'same base)]
[(mode) (use-compiled-file-paths)]) [(mode) (use-compiled-file-paths)])
(let* ([main-path-d (file-or-directory-modify-seconds path #f (lambda () #f))] (let* ([main-path-d (file-or-directory-modify-seconds orig-path #f (lambda () #f))]
[alt-path-d (and alt-path [alt-path-d (and alt-path
(not main-path-d)
(file-or-directory-modify-seconds alt-path #f (lambda () #f)))] (file-or-directory-modify-seconds alt-path #f (lambda () #f)))]
[path-d (or main-path-d alt-path-d)] [path-d (or main-path-d alt-path-d)]
[file (if alt-path-d alt-file main-file)] [file (if alt-path-d alt-file main-file)]