core: Remove --dump, --load.
[mes.git] / src / reader.c
index 3dfd3b04f201e031ddc9fdfd725e6eb2652cd9be..63e2ec107db12d0ab7bc804ab230067a6d24070f 100644 (file)
@@ -477,66 +477,3 @@ reader_read_string ()
   g_buf[i] = 0;
   return make_string (g_buf, i);
 }
-
-int g_tiny = 0;
-
-int
-dump ()
-{
-  r1 = g_symbols;
-  gc_push_frame ();
-  gc ();
-  gc_peek_frame ();
-  char *p = (char*)g_cells;
-  putchar ('M');
-  putchar ('E');
-  putchar ('S');
-  putchar (g_stack >> 8);
-  putchar (g_stack % 256);
-  eputs ("dumping\n");
-  // See HACKING, simple crafted dump for tiny-mes.c
-  if (g_tiny || getenv ("MES_TINY"))
-    {
-      eputs ("dumping TINY\n");
-
-      TYPE (9) = 0x2d2d2d2d;
-      CAR (9) = 0x2d2d2d2d;
-      CDR (9) = 0x3e3e3e3e;
-
-      TYPE (10) = TPAIR;
-      CAR (10) = 11;
-      CDR (10) = 12;
-
-      TYPE (11) = TCHAR;
-      CAR (11) = 0x58585858;
-      CDR (11) = 65;
-
-      TYPE (12) = TPAIR;
-      CAR (12) = 13;
-      CDR (12) = 1;
-
-      TYPE (13) = TCHAR;
-      CAR (11) = 0x58585858;
-      CDR (13) = 66;
-
-      TYPE (14) = 0x3c3c3c3c;
-      CAR (14) = 0x2d2d2d2d;
-      CDR (14) = 0x2d2d2d2d;
-
-      g_free = 15;
-    }
-  else if (g_debug > 1)
-    {
-      eputs ("program r2=");
-      display_error_ (r2);
-      eputs ("\n");
-    }
-
-  long i;
-  for (i=0; i<g_free * sizeof (struct scm); i = i + 1)
-    {
-      putchar (p[0]);
-      p = p + 1;
-    }
-  return 0;
-}