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

fix cm sha1 problem

Browse Source
This commit is contained in:
Matthew Flatt 2010-05-04 12:36:02 -06:00
parent 525b559e91
commit 9350df36b6
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/cm.rkt
View File

@ -427,7 +427,8 @@
'so-suffix))) 'so-suffix)))
dep-path) dep-path)
(try-file-sha1 (build-path dir (path-add-suffix name #".zo")) (try-file-sha1 (build-path dir (path-add-suffix name #".zo"))
dep-path)))) dep-path)
"")))
(define (rkt->ss p) (define (rkt->ss p)
(let ([b (path->bytes p)]) (let ([b (path->bytes p)])

4
collects/setup/main.rkt
View File

@ -81,8 +81,8 @@
(on? "-n")) (on? "-n"))
;; Don't use .zos, in case they're out of date, and don't load ;; Don't use .zos, in case they're out of date, and don't load
;; cm: ;; cm:
(when (or (on? "--clean" values) (when (or (on? "--clean")
(on? "-c" values)) (on? "-c"))
(use-compiled-file-paths null) (use-compiled-file-paths null)
(print-bootstrapping)) (print-bootstrapping))