suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compiler/cm: adapt as intended to old .dep files

Browse Source 
Try again on 1293674ddb.
This commit is contained in:
Matthew Flatt 2018-11-03 17:05:12 -04:00
parent 1293674ddb
commit b7c2359026
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/compiler/private/cm-minimal.rkt
View File

@ -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))