raco decompile: fix for bytecode without source

This commit is contained in:
Matthew Flatt 2014-06-02 20:40:24 +01:00
parent f02d9268ec
commit 3f75bc21d9

View File

@ -54,7 +54,9 @@
orig-file orig-file
alt-file)] alt-file)]
[(and (not force?) [(and (not force?)
((file-or-directory-modify-seconds orig-file) ((file-or-directory-modify-seconds orig-file
#f
(lambda () -inf.0))
. > . . > .
(file-or-directory-modify-seconds alt-file))) (file-or-directory-modify-seconds alt-file)))
;; return a warning: ;; return a warning: