From a13332f3aec5aa6e12694a0b7e7328f2c621a03c Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 3 Feb 2014 13:49:22 -0500 Subject: [PATCH] Fix path shortening for missing blame information. --- pkgs/contract-profile/utils.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/contract-profile/utils.rkt b/pkgs/contract-profile/utils.rkt index a373d29a43..0e9463f665 100644 --- a/pkgs/contract-profile/utils.rkt +++ b/pkgs/contract-profile/utils.rkt @@ -44,8 +44,9 @@ (blame-positive b) (blame-negative b) (blame-contract b) (blame-value b) (blame-source b))) -;; (sequenceof (U path-string? submodule-path)) -> same -(define (shorten-paths ps) +;; (sequenceof (U path-string? submodule-path #f)) -> same +(define (shorten-paths ps*) + (define ps (for/list ([p ps*] #:when p) p)) ; remove non-paths ;; zeroth pass, chop off submodule parts, to put back later (define submodules ; (listof (U submodule-part #f)) (for/list ([p ps])