picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mlib/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) ) )