fix stack effect for unique-file

diff --git a/basis/io/files/unique/unique-docs.factor b/basis/io/files/unique/unique-docs.factor
index 74fc0450329863eaa44f97d7f94d727b7e7d52e4..6a7be478130bcc7887d06ff4e80c8fdbe60bc8c2 100644 (file)
--- a/basis/io/files/unique/unique-docs.factor
+++ b/basis/io/files/unique/unique-docs.factor
@@ -62,8 +62,8 @@ HELP: current-temporary-directory
 
 HELP: unique-file
 { $values
+     { "prefix" string }
      { "path" "a pathname string" }
-     { "path'" "a pathname string" }
 }
 { $description "Creates a temporary file in the directory stored in " { $link current-temporary-directory } " and outputs the path name." } ;
 

diff --git a/basis/io/files/unique/unique.factor b/basis/io/files/unique/unique.factor
index 7bd96aa63b4a10a1b7cf2f850ef6c34a5586d9a0..0e4338e3e0415d37a530e5a3d74da5c2de9e477d 100644 (file)
--- a/basis/io/files/unique/unique.factor
+++ b/basis/io/files/unique/unique.factor
@@ -64,7 +64,7 @@ PRIVATE>
     [ unique-directory ] dip
     '[ _ with-temporary-directory ] [ delete-tree ] bi ; inline
 
-: unique-file ( path -- path' )
+: unique-file ( prefix -- path )
     "" make-unique-file ;
 
 {