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

Fix for git/rkt

Browse Source 
original commit: 68391b2d7fd0e9a092d663b56d761524aafc8d77
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-17 15:36:28 -05:00
parent 3efae1a1dc
commit fcf6876f28
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/typed-scheme/succeed/foldo.scm
View File

@ -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)