picolisp

commit ea788a283063935e845b49bb781b046b6d757625
parent 1327141d50e356582f61d8e4e3f10718e6326f32
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  2 Jul 2013 13:45:59 +0200

Better use "-rf" for 'rm'
Diffstat:
M
lib/too.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/too.l b/lib/too.l
@@ -1,4 +1,4 @@
-# 25jun13abu
+# 02jul13abu
 # (c) Software Lab. Alexander Burger
 
 ### Local Backup ###
@@ -6,7 +6,7 @@
    (let I -1
       (while (info (pack Dst "." (inc 'I))))
       (while (>= (dec 'I) Max)
-         (call 'rm "-r" (pack Dst "." I)) )
+         (call 'rm "-rf" (pack Dst "." I)) )
       (while (ge0 I)
          (call 'mv (pack Dst "." I) (pack Dst "." (inc I)))
          (dec 'I) ) )