mescc: Support regular C99 compile, headers + mlibc.

[mes.git] / src / gc.c

diff --git a/src/gc.c b/src/gc.c
index fcf38118632fd0529b49432e820b056910486211..e140b499335d3857004f4eb2f2ace9ed98aa872e 100644 (file)
--- a/src/gc.c
+++ b/src/gc.c
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * Mes --- Maxwell Equations of Software
- * Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of Mes.
  *
@@ -18,6 +18,8 @@
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#include <errno.h>
+
 SCM
 gc_up_arena () ///((internal))
 {
@@ -45,7 +47,7 @@ gc_flip () ///((internal))
   struct scm *cells = g_cells;
   g_cells = g_news;
   g_news = cells;
-  if (g_debug)
+  if (g_debug > 1)
     {
       eputs (";;;   => jam[");
       eputs (itoa (g_free));
@@ -131,7 +133,8 @@ gc_check ()
 SCM
 gc ()
 {
-  if (g_debug)
+  if (g_debug == 1) eputs (".");
+  if (g_debug > 1)
     {
       eputs (";;; gc[");
       eputs (itoa (g_free));
@@ -146,7 +149,7 @@ gc ()
   make_tmps (g_news);
   g_symbols = gc_copy (g_symbols);
   SCM new = gc_copy (g_stack);
-  if (g_debug)
+  if (g_debug > 1)
     {
       eputs ("new=");
       eputs (itoa (new));