suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 6bf26de6c785031c073e571ebae96403205dd034
This commit is contained in:
Robby Findler 2001-09-04 18:48:46 +00:00
parent de8160e521
commit 74055d44da
2 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/help/private/search.ss
View File

@ -61,7 +61,7 @@
(define (reset-doc-lists) (define (reset-doc-lists)
; Locate standard HTML documentation ; Locate standard HTML documentation
(define-values (std-docs std-doc-names) (define-values (std-docs std-doc-names)
(let* ([path (with-handlers ([void (lambda (x) #f)]) (let* ([path (with-handlers ([not-break-exn? (lambda (x) #f)])
(collection-path "doc"))]) (collection-path "doc"))])
(if path (if path
(let* ([doc-collections (directory-list path)] (let* ([doc-collections (directory-list path)]
@ -86,8 +86,8 @@
txt-doc-names))) txt-doc-names)))
(set! doc-kinds (append (map (lambda (x) 'html) std-docs) (map (lambda (x) 'text) txt-docs))) (set! doc-kinds (append (map (lambda (x) 'html) std-docs) (map (lambda (x) 'text) txt-docs)))
(with-handlers ([void (lambda (x) (with-handlers ([not-break-exn?
(set! doc-collection-date 'none))]) (lambda (x) (set! doc-collection-date 'none))])
(set! doc-collection-date (set! doc-collection-date
(file-or-directory-modify-seconds (file-or-directory-modify-seconds
(collection-path "doc"))))) (collection-path "doc")))))
@ -112,8 +112,6 @@
"") "")
"")) ""))
(define not-break? (lambda (x) (not (exn:break? x))))
; One lock for all hash table operations is good enough ; One lock for all hash table operations is good enough
(define ht-lock (make-semaphore 1)) (define ht-lock (make-semaphore 1))
@ -137,7 +135,7 @@
html-keywords html-keywords
doc doc
(lambda () (lambda ()
(with-handlers ([not-break? (lambda (x) null)]) (with-handlers ([not-break-exn? (lambda (x) null)])
(with-input-from-file (build-path doc "keywords") (with-input-from-file (build-path doc "keywords")
read))))) read)))))
@ -147,7 +145,7 @@
html-indices html-indices
doc doc
(lambda () (lambda ()
(with-handlers ([not-break? (lambda (x) null)]) (with-handlers ([not-break-exn? (lambda (x) null)])
(with-input-from-file (build-path doc "hdindex") (with-input-from-file (build-path doc "hdindex")
read))))) read)))))
@ -156,7 +154,7 @@
ht ht
doc doc
(lambda () (lambda ()
(with-handlers ([not-break? (lambda (x) null)]) (with-handlers ([not-break-exn? (lambda (x) null)])
(with-input-from-file doc (with-input-from-file doc
(lambda () (lambda ()
(let loop ([start 0]) (let loop ([start 0])
@ -189,7 +187,7 @@
(loop (car entry)))] (loop (car entry)))]
[else (error "bad entry")]))] [else (error "bad entry")]))]
[content (if (symbol? entry) [content (if (symbol? entry)
(with-handlers ([not-break? (lambda (x) #f)]) (with-handlers ([not-break-exn? (lambda (x) #f)])
(let ([s (read p)]) (let ([s (read p)])
(if (eq? s '::) (if (eq? s '::)
(read p) (read p)
@ -386,7 +384,7 @@
; Content Search ; Content Search
(unless (or (< search-level 2) exact? (null? finds)) (unless (or (< search-level 2) exact? (null? finds))
(let ([files (case doc-kind (let ([files (case doc-kind
[(html) (with-handlers ([not-break? (lambda (x) null)]) [(html) (with-handlers ([not-break-exn? (lambda (x) null)])
(map (lambda (x) (build-path doc x)) (map (lambda (x) (build-path doc x))
(filter (filter
(lambda (x) (file-exists? (build-path doc x))) (lambda (x) (file-exists? (build-path doc x)))
@ -395,7 +393,7 @@
[else null])]) [else null])])
(for-each (for-each
(lambda (f) (lambda (f)
(with-handlers ([not-break? (lambda (x) #f)]) (with-handlers ([not-break-exn? (lambda (x) #f)])
(with-input-from-file f (with-input-from-file f
(lambda () (lambda ()
(let loop () (let loop ()

0
src/mzscheme/gc/makefile.depend
View File