Merge branch 'master' of git://factorcode.org/git/wrunt

extra/io/files/tmp/tmp-tests.factor

@@ -1,5 +0,0 @@
-USING: io.files io.files.tmp kernel strings tools.test ;
-IN: temporary
-
-[ t ] [ tmpdir string? ] unit-test
-[ t f ] [ ".tmp" [ dup exists? swap ] with-tmpfile exists? ] unit-test

extra/io/files/tmp/tmp.factor

@@ -1,22 +0,0 @@
-USING: continuations io io.files kernel sequences strings.lib ;
-IN: io.files.tmp
-
-: tmpdir ( -- dirname )
-    #! ensure that a tmp dir exists and return its name
-    #! I'm using a sub-directory of factor for crossplatconformity (windows doesn't have /tmp)
-    "tmp" resource-path dup directory? [ dup make-directory ] unless ;
-
-: touch ( filename -- )
-    <file-writer> dispose ;
-
-: tmpfile ( extension -- filename )
-    16 random-alphanumeric-string over append
-    tmpdir swap path+ dup exists? [
-        drop tmpfile
-    ] [
-        nip dup touch
-    ] if ;
-
-: with-tmpfile ( extension quot -- )
-    #! quot should have stack effect ( filename -- )
-    swap tmpfile tuck swap curry swap [ delete-file ] curry [ ] cleanup ;