~ chicken-core (chicken-5) 02d6e11a235782fe720565ce63e5c1b930f3e3ec

commit 02d6e11a235782fe720565ce63e5c1b930f3e3ec
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat May 1 23:37:42 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat May 1 23:37:42 2010 +0200

    fixed missing test in create-temporary-directory

diff --git a/files.scm b/files.scm
index 6608daff..5d6c8d59 100644
--- a/files.scm
+++ b/files.scm
@@ -395,10 +395,12 @@ EOF
 	  (if (directory-exists? pn) 
 	      (loop)
 	      (let ((r (##core#inline "C_mkdir" (##sys#make-c-string pn))))
-		(##sys#signal-hook 
-		 #:file-error 'create-temporary-directory
-		 (##sys#string-append "cannot create temporary directory - " strerror)
-		 pn) )))))))
+		(if (eq? r 0)
+		    pn
+		    (##sys#signal-hook 
+		     #:file-error 'create-temporary-directory
+		     (##sys#string-append "cannot create temporary directory - " strerror)
+		     pn) ))))))))
 
 
 ;;; normalize pathname for a particular platform