mescc: Support regular C99 compile, headers + mlibc.
[mes.git] / src / reader.c
index cd9434ce36fcc6dd36f551a36f70b6dd7d8a1cc8..8883398fe9babd1edfae38b20a1a5b56010712d7 100644 (file)
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-// #if _POSIX_SOURCE
-// #undef fputs
-// #undef fdputs
-// #undef fdputc
-// #endif
+#include <ctype.h>
 
 SCM
 ___end_of_mes___ ()
@@ -124,10 +120,6 @@ int g_tiny = 0;
 int
 dump ()
 {
-  eputs ("program r2=");
-  display_error_ (r2);
-  eputs ("\n");
-
   r1 = g_symbols;
   gc_push_frame ();
   gc ();
@@ -139,8 +131,7 @@ dump ()
   putchar (g_stack >> 8);
   putchar (g_stack % 256);
   // See HACKING, simple crafted dump for tiny-mes.c
-  //  if (getenv ("MES_TINY"))
-  if (g_tiny)
+  if (g_tiny || getenv ("MES_TINY"))
     {
       eputs ("dumping TINY\n");
 
@@ -171,7 +162,16 @@ dump ()
       g_free = 15;
     }
   else
-    eputs ("dumping FULL\n");
+    {
+      eputs ("dumping FULL\n");
+      if (g_debug > 1)
+        {
+          eputs ("program r2=");
+          display_error_ (r2);
+          eputs ("\n");
+        }
+    }
+
   for (int i=0; i<g_free * sizeof(struct scm); i++)
     putchar (*p++);
   return 0;