~ chicken-core (chicken-5) 47761be0d3172eae824f3b59fe1a306ca5b524c2

commit 47761be0d3172eae824f3b59fe1a306ca5b524c2
Author:     felix <bunny351@gmail.com>
AuthorDate: Thu Apr 29 14:14:25 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Thu Apr 29 14:14:25 2010 +0200

    fix in create-temporary-directory

diff --git a/files.scm b/files.scm
index 4288bb9e..6608daff 100644
--- a/files.scm
+++ b/files.scm
@@ -43,6 +43,7 @@
   (disable-interrupts) 
   (foreign-declare #<<EOF
 #include <unistd.h>
+#include <errno.h>
 
 #ifndef _WIN32
 # include <sys/stat.h>
@@ -73,6 +74,9 @@ EOF
 (register-feature! 'files)
 
 
+(define-foreign-variable strerror c-string "strerror(errno)")
+
+
 ;;; Like `delete-file', but does nothing if the file doesn't exist:
 
 (define delete-file*
@@ -394,7 +398,7 @@ EOF
 		(##sys#signal-hook 
 		 #:file-error 'create-temporary-directory
 		 (##sys#string-append "cannot create temporary directory - " strerror)
-		 name) )))))))
+		 pn) )))))))
 
 
 ;;; normalize pathname for a particular platform