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

make-book: show a progress indicator

Browse source 
FossilOrigin-Name: 2bdcf6a47177c13376518c0d5368d6988fa679e1e9db5dea60f288a8d0e83824
This commit is contained in:
crc 2019-04-24 18:35:09 +00:00
parent 0d4307f2a9
commit f09eaa059c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
make-book.retro
View file

@ -67,7 +67,7 @@ for me.
:import here swap BOOK-BASE s:prepend file:slurp ; :import here swap BOOK-BASE s:prepend file:slurp ;
:\n ASCII:LF @Out file:write ; :\n ASCII:LF @Out file:write ;
:add-to-book here [ @Out file:write ] s:for-each \n ; :add-to-book here [ @Out file:write ] s:for-each \n ;
:process-files [ import add-to-book ] a:for-each ; :process-files [ import add-to-book $. c:put ] a:for-each nl ;
:open 'RETRO-Book.md file:open<for-writing> !Out ; :open 'RETRO-Book.md file:open<for-writing> !Out ;
:close @Out file:close ; :close @Out file:close ;
:assemble open process-files close ; :assemble open process-files close ;