| Author: | mrjbq7 |
|---|---|
| Mode: | factor |
| Date: | Thu, 5 Aug 2010 03:40:14 |
<PRIVATE
CONSTANT: CHARACTERS
abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
PRIVATE>
: random-temp-file ( -- path )
6 [ CHARACTERS random ] replicate >string temp-file ;