From 1162fa10a0d9d8794b1027a696c563449b60d4b0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Oct 2005 13:29:51 +0000 Subject: [PATCH] wrap dynamic check for framework collection svn: r1082 original commit: d34597549e8f0652b479cffd306cc833e60c236c --- collects/framework/private/frame.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 28652af2..5d77a9aa 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -2285,11 +2285,13 @@ (or (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) (directory-exists? (collection-path "repos-time-stamp"))) - (let ([fw (collection-path "framework")]) - (with-handlers ([exn:fail:filesystem? - (λ (x) #f)]) - (or (directory-exists? (build-path fw ".svn")) - (directory-exists? (build-path fw "CVS"))))))) + (with-handlers ([exn:fail:filesystem? + (λ (x) #f)]) + (let ([fw (collection-path "framework")]) + (with-handlers ([exn:fail:filesystem? + (λ (x) #f)]) + (or (directory-exists? (build-path fw ".svn")) + (directory-exists? (build-path fw "CVS")))))))) (define bday-click-canvas% (class canvas%