From 50759f4bc649b86ef49be606f2d3ccd407a08178 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 19 Mar 2016 13:03:15 -0700 Subject: [PATCH] io.files.unique: change cleanup-unique-file quot stack effect. --- basis/io/files/unique/unique-docs.factor | 2 +- basis/io/files/unique/unique.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/io/files/unique/unique-docs.factor b/basis/io/files/unique/unique-docs.factor index 4d5bc86bf2..483f819b50 100644 --- 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 dd9487d5c8..9ab84bb262 100644 --- 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