Clean up temp-directory

core/io/files/files.factor

@@ -265,12 +265,10 @@ DEFER: copy-tree-into
     ?resource-path exists? ;
 
 : temp-directory ( -- path )
-    "temp" resource-path
-    dup exists? not
-      [ dup make-directory ]
-    when ;
+    "temp" resource-path dup make-directories ;
 
-: temp-file ( name -- path ) temp-directory prepend-path ;
+: temp-file ( name -- path )
+    temp-directory prepend-path ;
 
 M: object normalize-pathname ( path -- path' )
     current-directory get prepend-path ;