From fcf6876f28b2ddf2ed00bf7618656540afd46c62 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 17 May 2010 15:36:28 -0500 Subject: [PATCH] Fix for git/rkt original commit: 68391b2d7fd0e9a092d663b56d761524aafc8d77 --- collects/tests/typed-scheme/succeed/foldo.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/succeed/foldo.scm b/collects/tests/typed-scheme/succeed/foldo.scm index fc10bc20..ff4bdd61 100644 --- a/collects/tests/typed-scheme/succeed/foldo.scm +++ b/collects/tests/typed-scheme/succeed/foldo.scm @@ -21,7 +21,7 @@ [_ #f]))))])) (define-excluder default-excluder - "compiled" ".svn" #;("collects" "drscheme") #;("collects" "framework")) + "compiled" ".git") (define exclude-directory? (make-parameter default-excluder)) @@ -39,7 +39,7 @@ (let ([extension (filename-extension path)]) (cond [(not extension) acc ] - [(regexp-match #rx"(ss|scm)$" extension) + [(regexp-match #rx"(rkt|rktl|ss|scm)$" extension) (let ([resl (f path)]) (if resl (cons resl acc)