suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r2977

Browse Source
This commit is contained in:
Eli Barzilay 2006-05-18 20:39:48 +00:00
parent 132ff42a1a
commit 9308330047
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/help/private/get-help-url.ss
View File

@ -15,7 +15,7 @@
. opt-> . string?)))
; given a manual path, convert to absolute Web path
; manual path is an anchored path to a collects/doc manual, never a servlet
; manual path is an anchored path to a doc manual, never a servlet
(define get-help-url
(opt-lambda (manual-path [anchor #f])
(let ([segments (explode-path (normalize-path manual-path))])
@ -63,4 +63,4 @@
[(null? long) #f]
[(equal? (car short) (car long))
(loop (cdr short) (cdr long))]
[else #f]))))
[else #f]))))