[MLton-commit] r6902

[Matthew Fluet]

Only delete ignored files in current directory.
----------------------------------------------------------------------

U   mlton/trunk/bin/clean

----------------------------------------------------------------------

Modified: mlton/trunk/bin/clean
===================================================================
--- mlton/trunk/bin/clean	2008-10-02 10:39:31 UTC (rev 6901)
+++ mlton/trunk/bin/clean	2008-10-03 15:18:43 UTC (rev 6902)
@@ -20,7 +20,7 @@
         rm -rf '.#'* .*~ *~ *.a *.o .cm core mlmon.out svn-commit.*
         if [ -r "$ignore" ]; then
 		# xargs allows us to have quoted strings for filenames
-		xargs -n 1 find . -name < "$ignore" | xargs rm -rf
+		xargs -n 1 find . -maxdepth 1 -name < "$ignore" | xargs rm -rf
         fi
         for f in *; do
                 if [ -d "$f" ]; then