~ chicken-core (chicken-5) 77df3b796d2795f48386a33a62c0748b07d335fd

commit 77df3b796d2795f48386a33a62c0748b07d335fd
Author:     felix <felix@y.(none)>
AuthorDate: Sun Apr 25 04:51:51 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sun Apr 25 04:51:51 2010 +0200

    fixed incorrect recent change

diff --git a/setup-api.scm b/setup-api.scm
index 203e0bcc..5a19ece2 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -483,7 +483,7 @@
    (normalize-pathname pref)
    (normalize-pathname path)))
 
-(define (move-file from to)
+(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)