crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

editor: no longer use external mv to update file

Browse source 
FossilOrigin-Name: bf3c389a34234d037cac926fe0a50feddc59156ed555e8f9866ae7bfa36cf5d7
This commit is contained in:
crc 2017-11-15 19:45:49 +00:00
parent 3f36e8a42d
commit 63abbb66b1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/edit.forth Normal file → Executable file
View file

@ -155,7 +155,7 @@ readability.
TEMP-FILE file:W file:open !FID TEMP-FILE file:W file:open !FID
[ #0 @SourceFile ] dip file:for-each-line drop [ #0 @SourceFile ] dip file:for-each-line drop
@FID file:close @FID file:close
@SourceFile TEMP-FILE 'mv_%s_%s s:with-format unix:system ; here TEMP-FILE file:slurp here @SourceFile file:spew ;
:current? (n-nf) :current? (n-nf)
over @CurrentLine eq? ; over @CurrentLine eq? ;