From 3f75bc21d93c2cedfddad00c533af091d6b999f5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 2 Jun 2014 20:40:24 +0100 Subject: [PATCH] raco decompile: fix for bytecode without source --- .../compiler-lib/compiler/commands/decompile.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/decompile.rkt b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/decompile.rkt index fd6a2a4261..bada535b72 100644 --- 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: