Protect raco setup from default deps value (see line 638 and 557)

2016-12-08 15:43:04 -05:00 · 2016-12-08 15:43:04 -05:00 · 2b3128cdb4
commit 2b3128cdb4
parent 8f9d4860fd
1 changed files with 2 additions and 1 deletions
--- a/racket/collects/compiler/cm.rkt
+++ b/racket/collects/compiler/cm.rkt
@ -621,7 +621,8 @@

 (define (different-source-sha1-and-dep-recorded path deps)
  (define src-hash (get-source-sha1 path))
-  (define recorded-hash (caadr deps))
+  (define recorded-hash (and (pair? (cadr deps))
+                             (caadr deps)))
  (if (equal? src-hash recorded-hash)
      #f
      (list src-hash recorded-hash)))