From de0170e03abf797f8078affb5b81dcbf24b1f896 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 24 May 2005 23:12:50 +0000 Subject: [PATCH] . original commit: cf9cd44661707639b103b41d89c23e3ef7b1d77f --- collects/framework/private/frame.ss | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 5ceccac3..9619eaf8 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -2282,12 +2282,11 @@ (define memory-text (make-object memory-text%)) (send memory-text hide-caret #t) (define show-memory-text? - (or (with-handlers ([exn:fail:filesystem? - (λ (x) #f)]) + (or (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) (directory-exists? (collection-path "cvs-time-stamp"))) - (with-handlers ([exn:fail:filesystem? - (λ (x) #f)]) - (directory-exists? (build-path (collection-path "framework") "CVS"))))) + (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) + (or (directory-exists? (build-path (collection-path "framework") "CVS")) + (directory-exists? (build-path (collection-path "framework") ".svn")))))) (define bday-click-canvas% (class canvas%