steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

locals-and-roots
John Benediktsson 2016-03-19 13:03:15 -07:00
parent 20883fb21a
commit 50759f4bc6
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/files/unique/unique-docs.factor
View File

@ -22,7 +22,7 @@ HELP: unique-file
{ unique-file cleanup-unique-file } related-words { unique-file cleanup-unique-file } related-words
HELP: cleanup-unique-file 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." } { $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." } ; { $notes "The unique file will be deleted after calling this word, even if an error is thrown in the quotation." } ;

2
basis/io/files/unique/unique.factor
View File

@ -36,7 +36,7 @@ PRIVATE>
dup touch-unique-file dup touch-unique-file
] unique-retries get retry absolute-path ; ] 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 prefix suffix unique-file :> path
[ path quot call ] [ path delete-file ] [ ] cleanup ; inline [ path quot call ] [ path delete-file ] [ ] cleanup ; inline