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

installed-tools for-directory should return null on a nonexistent directory

Browse Source 
svn: r7382
This commit is contained in:
John Clements 2007-09-18 18:29:37 +00:00
parent 11881c683d
commit dce7a033bd
1 changed files with 29 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/tools.ss
View File

@ -78,7 +78,7 @@
;; installed-tools-for-directory : directory-record -> (list-of installed-tool) ;; installed-tools-for-directory : directory-record -> (list-of installed-tool)
(define (installed-tools-for-directory coll-dir) (define (installed-tools-for-directory coll-dir)
(let ([table (get-info/full (directory-record-path coll-dir))]) (let ([table (get-info/full (directory-record-path coll-dir))])
(when table (if table
(let* ([tools (table 'tools (lambda () null))] (let* ([tools (table 'tools (lambda () null))]
[tool-icons (table 'tool-icons (lambda () (map (lambda (x) #f) tools)))] [tool-icons (table 'tool-icons (lambda () (map (lambda (x) #f) tools)))]
[tool-names (table 'tool-names (lambda () (map (lambda (x) #f) tools)))] [tool-names (table 'tool-names (lambda () (map (lambda (x) #f) tools)))]
@ -105,7 +105,8 @@
'(ok stop)) '(ok stop))
(set! tool-urls (map (lambda (x) #f) tools))) (set! tool-urls (map (lambda (x) #f) tools)))
(map (lambda (t i n u) (make-installed-tool coll-dir t i n u)) (map (lambda (t i n u) (make-installed-tool coll-dir t i n u))
tools tool-icons tool-names tool-urls))))) tools tool-icons tool-names tool-urls))
null)))
;; candidate-tool? : installed-tool -> boolean ;; candidate-tool? : installed-tool -> boolean
;; Predicate for tools selected for execution in this ;; Predicate for tools selected for execution in this