suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

avoid 'up and 'same when detecting link destinations

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

Closes #133
This commit is contained in:
Matthew Flatt 2017-08-11 07:47:42 -06:00
parent f707394839
commit 0931c3577a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scribble-lib/scribble/html-render.rkt
View File

@ -2013,9 +2013,9 @@
(loop (cdr path) (cdr root))))))))) (loop (cdr path) (cdr root)))))))))
(define (from-root p d) (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-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 p-in? (in-plt? e-p))
(define d-in? (and d (in-plt? e-d))) (define d-in? (and d (in-plt? e-d)))
(define (normalize p) (normal-case-path p)) (define (normalize p) (normal-case-path p))