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

The installer no longer outputs any #<path:...> into hdindex.

Browse Source 
svn: r7181
This commit is contained in:
Jens Axel Soegaard 2007-08-26 15:25:40 +00:00
parent 1685340d99
commit e9f2c2a78d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/help/installer.ss
View File

@ -98,9 +98,11 @@
[`(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))))
(add-index-entry! value file name title-value)] (unless (path? title-value)
(add-index-entry! value file name title-value))]
[_ (when (pair? exp) [_ (when (pair? exp)
(begin (loop (car exp)) (begin (loop (car exp))
(loop (cdr exp))))])) (loop (cdr exp))))]))
(loop)))))) (loop))))))
servlet-files)))) servlet-files))))