core: Remove string debugging.
[mes.git] / src / module.c
index 484b121b0e38a3699144fc03890307c493f94c42..773e1793eb4706e620fdcceb552d569dcb37ea8f 100644 (file)
@@ -20,6 +20,7 @@
 
 SCM struct_ref_ (SCM x, long i);
 SCM struct_set_x_ (SCM x, long i, SCM e);
+SCM cstring_to_symbol (char const *s);
 
 SCM
 make_module_type () ///(internal))
@@ -59,10 +60,6 @@ make_initial_module (SCM a) ///((internal))
   m0 = module;
   while (TYPE (a) == TPAIR)
     {
-      if (g_debug > 3)
-        {
-          eputs ("entry="); write_error_ (CAR (a)); eputs ("\n");
-        }
       module_define_x (module, CAAR (a), CDAR (a));
       a = CDR (a);
     }
@@ -101,10 +98,6 @@ module_variable (SCM module, SCM name)
 SCM
 module_ref (SCM module, SCM name)
 {
-  if (g_debug > 4)
-    {
-      eputs ("module_ref: "); display_error_ (name); eputs ("\n");
-    }
   SCM x = module_variable (module, name);
   if (x == cell_f)
     return cell_undefined;
@@ -114,10 +107,6 @@ module_ref (SCM module, SCM name)
 SCM
 module_define_x (SCM module, SCM name, SCM value)
 {
-  if (g_debug > 4)
-    {
-      eputs ("module_define_x: "); display_error_ (name); eputs ("\n");
-    }
   module = m0;
   SCM globals = struct_ref_ (module, 5);
   return hashq_set_x (globals, name, value);