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

wrap dynamic check for framework collection

Browse Source 
svn: r1082
This commit is contained in:
Matthew Flatt 2005-10-14 13:29:51 +00:00
parent fffe9c8bfc
commit d34597549e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/private/frame.ss
View File

@ -2285,11 +2285,13 @@
(or (with-handlers ([exn:fail:filesystem? (or (with-handlers ([exn:fail:filesystem?
(λ (x) #f)]) (λ (x) #f)])
(directory-exists? (collection-path "repos-time-stamp"))) (directory-exists? (collection-path "repos-time-stamp")))
(let ([fw (collection-path "framework")]) (with-handlers ([exn:fail:filesystem?
(with-handlers ([exn:fail:filesystem? (λ (x) #f)])
(λ (x) #f)]) (let ([fw (collection-path "framework")])
(or (directory-exists? (build-path fw ".svn")) (with-handlers ([exn:fail:filesystem?
(directory-exists? (build-path fw "CVS"))))))) (λ (x) #f)])
(or (directory-exists? (build-path fw ".svn"))
(directory-exists? (build-path fw "CVS"))))))))
(define bday-click-canvas% (define bday-click-canvas%
(class canvas% (class canvas%