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

Use "-a" for 'cp'
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 @@ -# 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)