<PRIVATE CONSTANT: CHARACTERS abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" PRIVATE> : random-temp-file ( -- path ) 6 [ CHARACTERS random ] replicate >string temp-file ;
Done