bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 0931c3577abe64bef3320c009bdfa07e3b80e784
parent f707394839944af33bc8b94a8a03988c8840fc30
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 11 Aug 2017 07:47:42 -0600

avoid 'up and 'same when detecting link destinations

Simplify complete paths before exploding, so that 'up and 'same will
no show up for comparisons.

Closes #133

Diffstat:
M
scribble-lib/scribble/html-render.rkt
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/scribble-lib/scribble/html-render.rkt b/scribble-lib/scribble/html-render.rkt
@@ -2013,9 +2013,9 @@
                    (loop (cdr path) (cdr root)))))))))
 
 (define (from-root p d)
-  (define c-p (path->complete-path p))
+  (define c-p (simplify-path (path->complete-path p)))
   (define e-p (explode c-p))
-  (define e-d (and d (explode (path->complete-path d))))
+  (define e-d (and d (explode (simplify-path (path->complete-path d)))))
   (define p-in? (in-plt? e-p))
   (define d-in? (and d (in-plt? e-d)))
   (define (normalize p) (normal-case-path p))