>From e3b976bb721ced6c3bd4ee15ec5a908de915157d Mon Sep 17 00:00:00 2001
From: Mario Domenech Goulart <address@hidden>
Date: Fri, 5 Aug 2016 23:15:23 +0200
Subject: [PATCH] create-temporary-directory: don't try to mkdir if a file with
 the same name exists

By checking for the existence of a _directory_ in
create-temporary-directory, the following program would eventually
cause a runtime error, as a _file_ with the same name would exist:

  (use files)

  (let loop ()
    (create-temporary-file "")
    (create-temporary-directory)
    (loop))

  Error: (create-temporary-directory) cannot create temporary directory
  - File exists: ...

Use file-exists? instead of directory-exists? to work around this
issue.
---
 files.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/files.scm b/files.scm
index e06cf20..43f92f9 100644
--- a/files.scm
+++ b/files.scm
@@ -343,7 +343,7 @@ EOF
 		     (number->string n 16)
 		     "."
 		     (##sys#number->string (##sys#fudge 33)))))) ; PID
-	  (if (directory-exists? pn) 
+	  (if (file-exists? pn)
 	      (loop)
 	      (let ((r (##core#inline "C_mkdir" (##sys#make-c-string pn 'create-temporary-directory))))
 		(if (eq? r 0)
-- 
2.1.4