repair "info-cache.rktd" assumption of relative paths

Fix for 459a744 to handle the case that a path to record is not relative. The `raco pkg` tests exposed the problem.
LiberalArtist · Apr 9, 2017 · 016b800 · 016b800
1 parent 50f67cf
commit 016b800
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/racket/collects/setup/setup-core.rkt b/racket/collects/setup/setup-core.rkt
@@ -1278,10 +1278,12 @@
                       (let ([p (path->main-lib-relative (cc-path cc))])
                         (if (path? p)
                             ;; Fall back to relative (with ".."s) to info root:
-                            (encode-relative-path
-                             (find-relative-path (cc-info-root cc)
-                                                 p
-                                                 #:more-than-root? #t))
+                            (let ([rp (find-relative-path (cc-info-root cc)
+                                                          p
+                                                          #:more-than-root? #t)])
+                              (if (relative-path? rp)
+                                  (encode-relative-path rp)
+                                  (path->bytes rp)))
                             p))]
                      [else (path->bytes (cc-path cc))])
                    (cons (domain) (cc-shadowing-policy cc)))))