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

Make submodule detection more robust.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-08-08 10:16:39 -04:00
parent af7583700d
commit 8f50e4a519
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/contract-profile/main.rkt
View File

@ -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))