From e42758eb2a97dea96d6a62ff32e9d245efebfeee Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 19:12:22 -0600 Subject: [PATCH] fix a cm problem with the SHA-1-based shortcut transitive dependencies --- collects/compiler/cm.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index 99af78ff8c..d516f46e77 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -471,9 +471,9 @@ (trace-printf "newer version...") (maybe-compile-zo #f #f mode path orig-path read-src-syntax up-to-date))] [(> path-time path-zo-time) - (lambda () - (trace-printf "newer src...") - (maybe-compile-zo #f deps mode path orig-path read-src-syntax up-to-date))] + (trace-printf "newer src...") + ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk: + (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date)] [(ormap (lambda (p) ;; (cons 'ext rel-path) => a non-module file (check date)