From ade32a3e54839355de15b7d5dee8a455fd5ce2b8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 17 May 2010 04:38:43 -0400 Subject: [PATCH] More svn -> git changes. Some mentions of svn/subversion are replaced with git, and some patterns for paths to ignore include ".git*". (Note ".mailmap" not added, might need to.) original commit: 9c352f5704092f747dd765cb42c7d547ebbb8621 --- collects/framework/private/frame.rkt | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index f8d7ab4c..46c89c73 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -2410,14 +2410,11 @@ (define memory-canvases '()) (define show-memory-text? - (or (with-handlers ([exn:fail:filesystem? - (λ (x) #f)]) + (or (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) (directory-exists? (collection-path "repo-time-stamp"))) - (with-handlers ([exn:fail:filesystem? - (λ (x) #f)]) + (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) (let ([fw (collection-path "framework")]) - (or (directory-exists? (build-path fw ".svn")) - (directory-exists? (build-path fw "CVS"))))))) + (directory-exists? (build-path fw 'up 'up ".git")))))) (define bday-click-canvas% (class canvas%