Make contract profiler's path shortening more robust.

2014-11-25 17:43:27 -05:00 · 2014-11-25 17:43:27 -05:00 · 52f33231fa
commit 52f33231fa
parent 6e473958de
1 changed files with 1 additions and 1 deletions
--- a/pkgs/contract-profile/utils.rkt
+++ b/pkgs/contract-profile/utils.rkt
@ -151,7 +151,7 @@
  (define table
    (for/hash ([p srcs]
               [e extracted])
-      (values p (hash-ref shortened e))))
+      (values p (hash-ref shortened e (lambda () p)))))
  (lambda (p)
    (define target (hash-ref table p #f))
    (if target