From 26835bedd164b3d78f01681dc62e51bf41fc9890 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 3 Jun 2010 14:02:19 -0600 Subject: [PATCH] change cm to accept the case of an uncompiled dependency Merge to 5.0 --- collects/compiler/cm.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index ed77f56043..3eb84dda56 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -193,7 +193,9 @@ => (lambda (sh) (cons (cons (cdr sh) dep) l))] [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]))))]) (and l (let ([p (open-output-string)]