From b7c2359026819de755c25b65d5cab71b491a9e99 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 3 Nov 2018 17:05:12 -0400 Subject: [PATCH] compiler/cm: adapt as intended to old .dep files Try again on 1293674ddb. --- racket/collects/compiler/private/cm-minimal.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/racket/collects/compiler/private/cm-minimal.rkt b/racket/collects/compiler/private/cm-minimal.rkt index a8d16cc05f..50751f3cdc 100644 --- a/racket/collects/compiler/private/cm-minimal.rkt +++ b/racket/collects/compiler/private/cm-minimal.rkt @@ -523,9 +523,10 @@ (with-handlers ([exn:fail:filesystem? (lambda (exn) "")]) (call-with-input-file* dep-path (lambda (p) (define deps (read p)) - (and (equal? (version) (car deps)) - (equal? (system-type 'vm) (cadr deps)) - (cdaddr deps)))))))))) + (or (and (equal? (version) (car deps)) + (equal? (system-type 'vm) (cadr deps)) + (cdaddr deps)) + ""))))))))) (define (get-compiled-sha1 path->mode roots path) (define-values (dir name) (get-compilation-dir+name path #:modes (list (path->mode path)) #:roots roots))