From 0931c3577abe64bef3320c009bdfa07e3b80e784 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 11 Aug 2017 07:47:42 -0600 Subject: [PATCH] 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 --- 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 index 721e1001..7ccbaa26 100644 --- 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))