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

From: Danny Yoo (dyoo at hkn.eecs.berkeley.edu)
Date: Mon Feb 21 01:46:39 EST 2005

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)


Posted on the users mailing list.