mini-mes: Debugging to stderr.

* scaffold/mini-mes.c (error, bload_env, main): Send debug info to
  stderr.

throw/catch dinges: URG

diff --git a/mes.c b/mes.c
index 1310c42f43e260fbeea695aef023ae6a4c99c6ef..48b828b44c1d701f6faef152e1c9e09633bbd33c 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -431,8 +431,9 @@ error (SCM key, SCM x)
   if ((throw = assq_ref_env (cell_symbol_throw, r0)) != cell_undefined)
     return apply (throw, cons (key, cons (x, cell_nil)), r0);
   display_error_ (key);
   if ((throw = assq_ref_env (cell_symbol_throw, r0)) != cell_undefined)
     return apply (throw, cons (key, cons (x, cell_nil)), r0);
   display_error_ (key);

-  fputs (": ", stderr);
+  eputs (": ");

   display_error_ (x);
   display_error_ (x);

+  eputs ("\n");

   assert (!"error");
 }
 
   assert (!"error");
 }
 


@@ -521,7 +522,7 @@ SCM
 set_env_x (SCM x, SCM e, SCM a)
 {
   SCM p = assert_defined (x, assq (x, a));
 set_env_x (SCM x, SCM e, SCM a)
 {
   SCM p = assert_defined (x, assq (x, a));

-  if (TYPE (p) != TPAIR)  error (cell_symbol_not_a_pair, cons (p, x));
+  if (TYPE (p) != TPAIR) error (cell_symbol_not_a_pair, cons (p, x));

   return set_cdr_x (p, e);
 }
 
   return set_cdr_x (p, e);
 }
 

diff --git a/scaffold/mini-mes.c b/scaffold/mini-mes.c
index 06bd3a930c5bb6731200bf5fec7c9071c196cbd8..4b5a5315b1e6563b0c12f1c88a4403d29eb0043e 100644 (file)
--- a/scaffold/mini-mes.c
+++ b/scaffold/mini-mes.c
@@ -422,9 +422,10 @@ error (SCM key, SCM x)
   SCM throw;
   if ((throw = assq_ref_env (cell_symbol_throw, r0)) != cell_undefined)
     return apply (throw, cons (key, cons (x, cell_nil)), r0);
   SCM throw;
   if ((throw = assq_ref_env (cell_symbol_throw, r0)) != cell_undefined)
     return apply (throw, cons (key, cons (x, cell_nil)), r0);

-  display_ (key);
-  puts (": ");
+  display_error_ (key);
+  eputs (": ");

   display_ (x);
   display_ (x);

+  eputs ("\n");

   assert (0);
 }
 
   assert (0);
 }
 


@@ -1633,27 +1634,27 @@ bload_env (SCM a) ///((internal))
 
   if (g_debug)
     {
 
   if (g_debug)
     {

-      puts ("symbols: ");
+      eputs ("symbols: ");

       SCM s = g_symbols;
       while (s && s != cell_nil) {
       SCM s = g_symbols;
       while (s && s != cell_nil) {

-        display_ (CAR (s));
-        puts (" ");
+        display_error_ (CAR (s));
+        eputs (" ");

         s = CDR (s);
       }
         s = CDR (s);
       }

-      puts ("\n");
-      puts ("functions: ");
-      puts (itoa (g_function));
-      puts ("\n");
+      eputs ("\n");
+      eputs ("functions: ");
+      eputs (itoa (g_function));
+      eputs ("\n");

       for (int i = 0; i < g_function; i++)
         {
       for (int i = 0; i < g_function; i++)
         {

-          puts ("[");
-          puts (itoa (i));
-          puts ("]: ");
-          puts (g_functions[i].name);
-          puts ("\n");
+          eputs ("[");
+          eputs (itoa (i));
+          eputs ("]: ");
+          eputs (g_functions[i].name);
+          eputs ("\n");

         }
         }

-      display_ (r0);
-      puts ("\n");
+      //display_error_ (r0);
+      //puts ("\n");

     }
   return r2;
 }
     }
   return r2;
 }


@@ -1699,12 +1700,12 @@ main (int argc, char *argv[])
   if (g_debug)
     {
       eputs ("program: ");
   if (g_debug)
     {
       eputs ("program: ");

-      display_ (r1);
+      display_error_ (r1);

       eputs ("\n");
     }
   r3 = cell_vm_begin;
   r1 = eval_apply ();
       eputs ("\n");
     }
   r3 = cell_vm_begin;
   r1 = eval_apply ();

-  display_ (r1);
+  display_error_ (r1);

   eputs ("\n");
 
 #if !MES_MINI
   eputs ("\n");
 
 #if !MES_MINI