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

retro startup banner: fix reporting of used, free memory

Browse source 
FossilOrigin-Name: d8558d3fbd46f4ab4ce6f490215186331d75bc227451289274026cc92fab3a41
This commit is contained in:
crc 2021-06-24 13:36:14 +00:00
parent 2735d07f84
commit 54c16fc96f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
interface/retro-unix.retro
View file

@ -81,7 +81,7 @@ startup flags passed.
---reveal---
:// script:ignore-to-eol &Ignoring v:on ; immediate
:banner version 'RETRO_12_(%n.%n)\n s:format s:put
EOM here - here EOM '%n_Max,_%n_Used,_%n_Free\n s:format s:put ;
FREE EOM FREE - EOM '%n_Max,_%n_Used,_%n_Free\n s:format s:put ;
:listen @NoEcho [ banner ] -if repeat input process again ;
}}