core: Remove most of reader.
[mes.git] / mes.c
diff --git a/mes.c b/mes.c
index 963f321a6d8dc1b61b22d22f0144bc1d457c08ac..ba143d7e5ffdbbcfc81887fbfa8f4c4bb79e90dd 100644 (file)
--- a/mes.c
+++ b/mes.c
 
 #define DEBUG 0
 #define FIXED_PRIMITIVES 1
-#define READER 0
 
-#if READER
-int ARENA_SIZE = 1000000;
-#else
 int ARENA_SIZE = 100000;
-#endif
+
 int MAX_ARENA_SIZE = 20000000;
 int GC_SAFETY = 100;
 
@@ -1204,10 +1200,8 @@ SCM
 load_env (SCM a) ///((internal))
 {
   r0 =a;
-#if 1 //!READER
   g_stdin = fopen ("module/mes/read-0.mes", "r");
   g_stdin = g_stdin ? g_stdin : fopen (PREFIX "module/mes/read-0.mes", "r");
-#endif
   if (!g_function) r0 = mes_builtins (r0);
   r3 = read_input_file_env (r0);
   g_stdin = stdin;