From 2b3128cdb464f6c0398a6c8b5915a5d0fa434674 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 8 Dec 2016 15:43:04 -0500 Subject: [PATCH] Protect raco setup from default deps value (see line 638 and 557) --- racket/collects/compiler/cm.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/compiler/cm.rkt b/racket/collects/compiler/cm.rkt index 150f8a3571..a53d291e88 100644 --- 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)))