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

change cm to accept the case of an uncompiled dependency

Browse Source 
Merge to 5.0
This commit is contained in:
Matthew Flatt 2010-06-03 14:02:19 -06:00
parent 7e08ef7064
commit 26835bedd1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/cm.rkt
View File

@ -193,7 +193,9 @@
=> (lambda (sh) => (lambda (sh)
(cons (cons (cdr sh) dep) l))] (cons (cons (cdr sh) dep) l))]
[must-exist? [must-exist?
(error 'cm "internal error?; cannot find sha1 for module: ~v" p)] ;; apparently, we're forced to use the source of the module,
;; so compute a sha1 from it instead of the bytecode
(cons (cons (get-source-sha1 p) dep) l)]
[else #f]))))]) [else #f]))))])
(and l (and l
(let ([p (open-output-string)] (let ([p (open-output-string)]