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

minor

Browse Source 
svn: r10577

original commit: 9a737ade303cb7e54793e59fafcaa889b91d54df
This commit is contained in:
Eli Barzilay 2008-07-03 10:30:54 +00:00
parent e47582cec2
commit e578b6c328
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/html-render.ss
View File

@ -1153,9 +1153,10 @@
(define d-in? (and d (in-plt? e-d))) (define d-in? (and d (in-plt? e-d)))
;; use an absolute link if the link is from outside the plt tree ;; use an absolute link if the link is from outside the plt tree
;; going in (or if d is #f) ;; going in (or if d is #f)
(if (not (and d (cond [(equal? p-in? d-in?) #t] (if (not (and d (cond
[(equal? p-in? d-in?) #t]
[d-in? (error 'from-root [d-in? (error 'from-root
"got a link from the PLT going out; ~e" "got a link from the PLT tree going out; ~e"
p)] p)]
[else #f]))) [else #f])))
(url->string (path->url (path->complete-path p))) (url->string (path->url (path->complete-path p)))