[plt-scheme] Making pack.ss aware of Subversion files?

Hi everyone,

'pack.ss' in the 'setup' collection already knows not to pack CVS
directories by default.  Would it be ok to make it know not to dive into
'.svn' files by default too?

I know I can just munge things by passing in my own std-filter, but it
seems like an easy patch:


volado:~/work/plt/collects/setup dyoo$ cvs diff -u
? compiled
cvs diff: Diffing .
Index: pack.ss
===================================================================
RCS file: /cvs/plt/collects/setup/pack.ss,v
retrieving revision 1.19
diff -u -r1.19 pack.ss
--- pack.ss     11 May 2004 13:11:30 -0000      1.19
+++ pack.ss     21 Feb 2005 06:40:46 -0000
@@ -151,6 +151,7 @@
   (define (std-filter path)
     (let ([path (path->string path)])
       (not (or (regexp-match #rx"CVS$" path)
+              (regexp-match #rx"[.]svn$" path)
               (regexp-match #rx"compiled$" path)
               (regexp-match #rx"~$" path)
               (regexp-match #rx"^#.*#$" path)


Thanks!