picolisp

commit ccc4934b0201691d5b3a0c8aab95d0ec20dfb911
parent 715b6616050d8912627eb9b86fd878cdba882629
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 25 Jun 2013 11:42:38 +0200

Use "-a" for 'cp'
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 @@
-# 24jun13abu
+# 25jun13abu
 # (c) Software Lab. Alexander Burger
 
 ### Local Backup ###
@@ -34,7 +34,7 @@
                         `(if (== 64 64)
                            '(native "@" "link" 'I Old New)
                            '(call 'ln Old New) ) )
-                     (T (call 'cp "-dp" Src New)) ) )  # Changed or new
+                     (T (call 'cp "-a" Src New)) ) )  # Changed or new
                (call 'mkdir "-p" New)
                (recurse
                   (cdr Lst)