From 8f50e4a519c4e77d0990aec29e4354ebbadac246 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 8 Aug 2013 10:16:39 -0400 Subject: [PATCH] Make submodule detection more robust. --- pkgs/contract-profile/main.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/pkgs/contract-profile/main.rkt b/pkgs/contract-profile/main.rkt index 5d7a4297e2..0fbb84fd04 100644 --- a/pkgs/contract-profile/main.rkt +++ b/pkgs/contract-profile/main.rkt @@ -150,7 +150,11 @@ '())))) (define nodes->typed? - (for/hash ([n nodes]) + (for/hash ([n nodes] + ;; Needs to be either a file or a submodule. + ;; I've seen 'unit and 'not-enough-info-for-blame go by here, + ;; and we can't do anything with either. + #:when (or (path? n) (pair? n))) ;; typed modules have a #%type-decl submodule (define submodule? (not (path? n))) (define filename (if submodule? (car n) n))