From 9fbf023d90b369269207e1e7ab40cbb9d8c545d8 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Tue, 19 Jan 2010 03:38:55 +0000 Subject: [PATCH] Took collection path simplification out of this file. svn: r17729 --- collects/scheme/contract/private/blame.ss | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/collects/scheme/contract/private/blame.ss b/collects/scheme/contract/private/blame.ss index b7c39d0bd0..447d5de8c4 100644 --- a/collects/scheme/contract/private/blame.ss +++ b/collects/scheme/contract/private/blame.ss @@ -45,24 +45,8 @@ (current-continuation-marks) b))) -(define (simplify-source loc) - (let* ([loc (build-source-location loc)] - [src (srcloc-source loc)]) - (if (path? src) - (let* ([rel (path->main-collects-relative src)]) - (if (pair? rel) - (struct-copy srcloc loc - [source - (apply build-path - (bytes->path #"") - (map bytes->path-element (cdr rel)))]) - loc)) - loc))) - (define (default-blame-format b x custom-message) - (let* ([source-message (source-location->prefix - (simplify-source - (blame-source b)))] + (let* ([source-message (source-location->prefix (blame-source b))] [guilty-message (show (blame-guilty b))] [contract-message (show (blame-contract b))] [value-message (if (blame-value b)