extra/io/windows/files/unique/unique.factor

   1 USING: kernel system io.files.unique.backend
   2 windows.kernel32 io.windows io.windows.files io.ports windows
   3 destructors ;
   4 IN: io.windows.files.unique
   5
   6 M: windows (make-unique-file) ( path -- )
   7     GENERIC_WRITE CREATE_NEW 0 open-file dispose ;
   8
   9 M: windows temporary-path ( -- path )
  10     "TEMP" os-env ;