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