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")

--
You received this message because you are subscribed to the Google Groups "FriCAS - 
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To view this discussion on the web visit 
https://groups.google.com/d/msgid/fricas-devel/4e417d3d-d9f6-4400-a84a-0167ff60f05c%40gmail.com.

Reply via email to