~ chicken-core (chicken-5) 909bf8eea67c578e0246b684f23a00e03935ef4d

commit 909bf8eea67c578e0246b684f23a00e03935ef4d
Author:     felix <felix@y.(none)>
AuthorDate: Mon Apr 19 03:54:46 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Mon Apr 19 03:54:46 2010 +0200

    deprecated COPY-FILE and MOVE-FILE in setup-api

diff --git a/manual/Extensions b/manual/Extensions
index 030b922f..d9539102 100644
--- a/manual/Extensions
+++ b/manual/Extensions
@@ -212,14 +212,14 @@ overwritten. If {{WHICH}} is a list of the form {{OLD NEW}}, then a different fi
 
 ==== copy-file
 
-<procedure>(copy-file FROM TO)</procedure>
+<procedure>(copy-file* FROM TO)</procedure>
 
 Copies the file or directory (recursively) given in the string {{FROM}} to the destination
 file or directory {{TO}}.
 
 ==== move-file
 
-<procedure>(move-file FROM TO)</procedure>
+<procedure>(move-file* FROM TO)</procedure>
 
 Moves the file or directory (recursively) given in the string {{FROM}} to the destination
 file or directory {{TO}}.
@@ -228,7 +228,7 @@ file or directory {{TO}}.
 
 <procedure>(remove-file* PATH)</procedure>
 
-Removes the file or directory given in the string {{PATH}}.
+Removes the file or directory given in the string {{PATH}}, if it exists.
 
 
 ==== find-library
@@ -259,17 +259,11 @@ If the keyword argument {{c++}} is given and true, then the code will be compile
 
 ==== create-directory
 
-<procedure>(create-directory PATH)</procedure>
+<procedure>(create-directory/parents PATH)</procedure>
 
 Creates the directory given in the string {{PATH}}, with all parent directories as needed.
 
 
-==== chicken-prefix
-
-<parameter>chicken-prefix</parameter>
-
-The installation prefix specified when CHICKEN was built.
-
 ==== installation-prefix
 
 <parameter>installation-prefix</parameter>
diff --git a/setup-api.scm b/setup-api.scm
index 5cdad99e..f4377721 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -50,7 +50,9 @@
      program-path remove-file* 
      patch yes-or-no? abort-setup
      setup-root-directory create-directory/parents
-     test-compile try-compile copy-file run-verbose
+     test-compile try-compile run-verbose
+     copy-file move-file		;XXX DEPRECATED
+     copy-file* move-file*
      required-chicken-version required-extension-version cross-chicken
      sudo-install keep-intermediates
      version>=?
@@ -457,7 +459,7 @@
 	    (else (with-output-to-file setup-file (cut pp info))))
       (unless *windows-shell* (run (,*chmod-command* a+r ,(shellpath setup-file)))))))
 
-(define (copy-file from to #!optional (err #t) (prefix (installation-prefix)))
+(define (copy-file* from to #!optional (err #t) (prefix (installation-prefix)))
   ;;XXX the prefix handling is completely bogus
   (let ((from (if (pair? from) (car from) from))
 	(to (let ((to-path (if (pair? from) (make-pathname to (cadr from)) to)))
@@ -468,12 +470,16 @@
     (run (,*copy-command* ,(shellpath from) ,(shellpath to)))
     to))
 
+(define copy-file copy-file*)		;XXX DEPRECATED
+
 (define (move-file from to)
   (let ((from  (if (pair? from) (car from) from))
 	(to    (if (pair? from) (make-pathname to (cadr from)) to)))
     (ensure-directory to)
     (run (,*move-command* ,(shellpath from) ,(shellpath to)) ) ) )
 
+(define move-file move-file*)		;XXX DEPRECATED
+
 (define (remove-file* dir)
   (run (,*remove-command* ,(shellpath dir)) ) )