~ chicken-core (chicken-5) 73d8e2a6fa50eb75a422cd32b1368586466cc0fb

commit 73d8e2a6fa50eb75a422cd32b1368586466cc0fb
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Mar 10 14:05:03 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Mar 10 14:05:03 2010 +0100

    user correct string for error message

diff --git a/posixunix.scm b/posixunix.scm
index 9675b6cf..bc985e8a 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -899,16 +899,16 @@ EOF
 (define change-directory
   (lambda (name)
     (##sys#check-string name 'change-directory)
-    (let ((name (##sys#make-c-string (##sys#expand-home-path name))))
-      (unless (fx= 0 (##core#inline "C_chdir" name))
+    (let ((sname (##sys#make-c-string (##sys#expand-home-path name))))
+      (unless (fx= 0 (##core#inline "C_chdir" sname))
 	(posix-error #:file-error 'change-directory "cannot change current directory" name) )
       name)))
 
 (define delete-directory
   (lambda (name)
     (##sys#check-string name 'delete-directory)
-    (let ((name (##sys#make-c-string (##sys#expand-home-path name))))
-      (unless (fx= 0 (##core#inline "C_rmdir" name))
+    (let ((sname (##sys#make-c-string (##sys#expand-home-path name))))
+      (unless (fx= 0 (##core#inline "C_rmdir" sname))
 	(posix-error #:file-error 'delete-directory "cannot delete directory" name) )
       name)))
 
diff --git a/posixwin.scm b/posixwin.scm
index b95cebc5..e422cbf8 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1213,8 +1213,8 @@ EOF
 (define change-directory
   (lambda (name)
     (##sys#check-string name 'change-directory)
-    (let ((name (##sys#make-c-string (##sys#expand-home-path name))))
-      (unless (fx= 0 (##core#inline "C_chdir" name))
+    (let ((sname (##sys#make-c-string (##sys#expand-home-path name))))
+      (unless (fx= 0 (##core#inline "C_chdir" sname))
 	(##sys#update-errno)
 	(##sys#signal-hook
 	 #:file-error 'change-directory "cannot change current directory" name) )
@@ -1223,8 +1223,8 @@ EOF
 (define delete-directory
   (lambda (name)
     (##sys#check-string name 'delete-directory)
-    (let ((name (##sys#make-c-string (##sys#expand-home-path name))))
-      (unless (fx= 0 (##core#inline "C_rmdir" name))
+    (let ((sname (##sys#make-c-string (##sys#expand-home-path name))))
+      (unless (fx= 0 (##core#inline "C_rmdir" sname))
 	(##sys#update-errno)
 	(##sys#signal-hook #:file-error 'delete-directory "cannot delete directory" name) )
       name)))