io.files: quot effects in change-file-lines and change-file-contents.

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 7ba3f9e82c5e6dcf7f0b16eb49829363eb800bc9..e96dbc8ab5a791a7c2c3027ee188f211f12daff7 100644 (file)
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -56,14 +56,14 @@ HOOK: (file-appender) io-backend ( path -- stream )
 : set-file-lines ( seq path encoding -- )
     [ [ print ] each ] with-file-writer ;
 
-: change-file-lines ( path encoding quot -- )
+: change-file-lines ( ..a path encoding quot: ( ..a seq -- ..b seq' ) -- ..b )
     [ [ file-lines ] dip call ]
     [ drop set-file-lines ] 3bi ; inline
 
 : set-file-contents ( seq path encoding -- )
     [ write ] with-file-writer ;
 
-: change-file-contents ( path encoding quot -- )
+: change-file-contents ( ..a path encoding quot: ( ..a seq -- ..b seq' ) -- ..b )
     [ [ file-contents ] dip call ]
     [ drop set-file-contents ] 3bi ; inline