[PATCH] add a synonym ")storage" and prevent 0 in its output

[Qian Yun]

I find that the ability to show RAM usage can be useful frequently,
so adding a shortcut ')storage' to ')set mes sto' is justified.

Also fix a regression from previous commit that shows "0 bytes"
in its output.

- Qian

diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot
index 49fd8071..cb373c43 100644
--- a/src/interp/g-timer.boot
+++ b/src/interp/g-timer.boot
@@ -77,7 +77,9 @@ makeStatString(oldstr,time,abb,flag) ==
oldstr = '"" => STRCONC(timestr, opening, abb, '")")
STRCONC(oldstr, '" + ", timestr, opening, abb, '")")

-significantStat? t == INTEGERP t or t >= 0.1^$timePrintDigits
+significantStat? s ==
+ INTEGERP s => s ~= 0
+ s >= 0.1^$timePrintDigits

peekTimedName() == IFCAR $timedNameStack

diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp
index 13990ede..24d2b3cb 100644
--- a/src/interp/setq.lisp
+++ b/src/interp/setq.lisp
@@ -233,6 +233,7 @@
(|startGraphics| . "system $FRICAS/lib/viewman &")
(|stopGraphics| . "lisp (|sockSendSignal| 2 15)")
(|time| . "set message time")
+ (|storage| . "set message storage")
(|type| . "set message type")
(|unexpose| . "set expose drop constructor")
(|wc| . "what categories")

[Waldek Hebisch]

On Sat, Dec 09, 2023 at 08:54:29AM +0800, Qian Yun wrote:
> I find that the ability to show RAM usage can be useful frequently,
> so adding a shortcut ')storage' to ')set mes sto' is justified.
>
> Also fix a regression from previous commit that shows "0 bytes"
> in its output.

OK.

--
Waldek Hebisch