From 773d0f6d70f228fdcedb3111d5a9ca92dbbc24ef Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 5 Jun 2010 16:48:34 -0600 Subject: [PATCH] fix use of .ss when .rkt exists in executable creation more generally, fixes anything tha uses syntax/modcode --- collects/syntax/modcode.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/syntax/modcode.rkt b/collects/syntax/modcode.rkt index 0292e3ad21..03e22fe872 100644 --- a/collects/syntax/modcode.rkt +++ b/collects/syntax/modcode.rkt @@ -107,8 +107,9 @@ (build-path base alt-file)))] [(base) (if (eq? base 'relative) 'same base)] [(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 + (not main-path-d) (file-or-directory-modify-seconds alt-path #f (lambda () #f)))] [path-d (or main-path-d alt-path-d)] [file (if alt-path-d alt-file main-file)]