raco decompile: fix for bytecode without source

original commit: 3f75bc21d9
2014-06-02 20:40:24 +01:00 · 2014-06-02 20:40:24 +01:00 · 4381f1eb24
commit 4381f1eb24
parent 7fdf264e1d
1 changed files with 3 additions and 1 deletions
--- a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/decompile.rkt
+++ b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/decompile.rkt
@ -54,7 +54,9 @@
                      orig-file
                      alt-file)]
   [(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)))
    ;; return a warning: