Bug in create-temporary-{file,directory} pasted by mario-goulart on Mon Jan 1 21:27:58 2024

#;1> (create-temporary-file)
"/tmp/tempcd92.182728.tmp"
#;2> (set-environment-variable! "TMPDIR" "/home/mario")
#;3> (get-environment-variable "TMPDIR")
"/home/mario"
#;4> (create-temporary-file)
"/tmp/tempc6c.182728.tmp"
[ permalink | raw ]

Fix for the create-temporary-{file,directory} issue added by mario-goulart on Mon Jan 1 21:31:26 2024

diff --git a/file.scm b/file.scm
index 11b1bcc0..f61961d0 100644
--- a/file.scm
+++ b/file.scm
@@ -312,10 +312,10 @@ EOF
        (let ((tmp
               (or (get-environment-variable "TMPDIR")
                   (get-environment-variable "TEMP")
-                  (get-environment-variable "TMP")
-                  "/tmp")))
-         (set! temp tmp)
-         tmp)))
+                  (get-environment-variable "TMP"))))
+          (when tmp
+            (set! temp tmp))
+          (or tmp "/tmp"))))
   (set! create-temporary-file
     (lambda (#!optional (ext "tmp"))
       (##sys#check-string ext 'create-temporary-file)
[ permalink | raw ]