From 48ed9c47af68e4905f5211039c4fda9351da8dde Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 27 Aug 2007 15:42:10 +0000 Subject: [PATCH] fixed path values svn: r7195 --- collects/help/installer.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/help/installer.ss b/collects/help/installer.ss index 3aa0903645..5bbede880d 100644 --- a/collects/help/installer.ss +++ b/collects/help/installer.ss @@ -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))))]))