io.files.unique: change cleanup-unique-file quot stack effect.

diff --git a/basis/io/files/unique/unique-docs.factor b/basis/io/files/unique/unique-docs.factor
index 4d5bc86bf299fc443fb2d32d5c1cc574700f9464..483f819b508db5c15e4ed45218983707f2b61f96 100644 (file)
--- a/basis/io/files/unique/unique-docs.factor
+++ b/basis/io/files/unique/unique-docs.factor
@@ -22,7 +22,7 @@ HELP: unique-file
 { unique-file cleanup-unique-file } related-words
 
 HELP: cleanup-unique-file
-{ $values { "prefix" string } { "suffix" string } { "quot" { $quotation ( path -- ) } } }
+{ $values { "prefix" string } { "suffix" string } { "quot" { $quotation ( ..a path -- ..b ) } } }
 { $description "Creates a file with " { $link unique-file } " and calls the quotation with the path name on the stack." }
 { $notes "The unique file will be deleted after calling this word, even if an error is thrown in the quotation." } ;
 

diff --git a/basis/io/files/unique/unique.factor b/basis/io/files/unique/unique.factor
index dd9487d5c81f7d8ba205c06cb9c2337fbe424b01..9ab84bb262631faa190dabe9ac617ee5524d1716 100644 (file)
--- a/basis/io/files/unique/unique.factor
+++ b/basis/io/files/unique/unique.factor
@@ -36,7 +36,7 @@ PRIVATE>
         dup touch-unique-file
     ] unique-retries get retry absolute-path ;
 
-:: cleanup-unique-file ( prefix suffix quot: ( path -- ) -- )
+:: cleanup-unique-file ( ..a prefix suffix quot: ( ..a path -- ..b ) -- ..b )
     prefix suffix unique-file :> path
     [ path quot call ] [ path delete-file ] [ ] cleanup ; inline