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

fixed path values

Browse Source 
svn: r7195
This commit is contained in:
Eli Barzilay 2007-08-27 15:42:10 +00:00
parent 7fc8d8c888
commit 48ed9c47af
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/help/installer.ss
View File

@ -80,7 +80,7 @@
(for-each (for-each
(lambda (file) (lambda (file)
(let ([port (open-input-file file)] (let ([port (open-input-file file)]
[title-value file]) [title-value #f])
(let loop () (let loop ()
(let ([sexp (with-handlers ([exn:fail:read? (let ([sexp (with-handlers ([exn:fail:read?
(lambda (x) (lambda (x)
@ -98,8 +98,8 @@
[`(title ,(? string? title)) [`(title ,(? string? title))
(set! title-value title)] (set! title-value title)]
[`(a ((name ,(? string? name)) (value ,(? string? value)))) [`(a ((name ,(? string? name)) (value ,(? string? value))))
(unless (path? title-value) (add-index-entry! value file name
(add-index-entry! value file name title-value))] (or title-value (path->string file)))]
[_ (when (pair? exp) [_ (when (pair? exp)
(begin (loop (car exp)) (begin (loop (car exp))
(loop (cdr exp))))])) (loop (cdr exp))))]))