modern: add a rewrite-file word

[factor.git] / extra / modern / modern.factor

diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor
index 2648b03c2ff21cc2eba4691c0b5d598d9770168f..f0b5402cf753afa253755843f7a63c8587fb36b4 100644 (file)
--- a/extra/modern/modern.factor
+++ b/extra/modern/modern.factor
@@ -487,6 +487,9 @@ ERROR: compound-syntax-disallowed n seq obj ;
 
 : failed-lexing ( assoc -- assoc' ) [ nip array? ] assoc-reject ;
 
+: rewrite-file ( path encoding quot: ( str -- str' ) -- )
+    '[ file-contents @ ] 2keep set-file-contents ; inline
+
 : lex-core ( -- assoc ) core-vocabs lex-vocabs ;
 : lex-basis ( -- assoc ) basis-vocabs lex-vocabs ;
 : lex-extra ( -- assoc ) extra-vocabs lex-vocabs ;