build: Resolve MODULEDIR confusion. Fixes mes installation.
[mes.git] / src / mes.c
index 617f0c0cfc7f5ee63a51701a7c5c7d5f86bd1fcf..266d2ff4ce62efa16c0059327f5d6e666fd66c20 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -1248,7 +1248,7 @@ load_env (SCM a) ///((internal))
 {
   r0 = a;
   g_stdin = open ("module/mes/read-0.mes", O_RDONLY);
-  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "mes/read-0.mes", O_RDONLY);
+  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "/mes/read-0.mes", O_RDONLY);
   if (!g_function) r0 = mes_builtins (r0);
   r2 = read_input_file_env (r0);
   g_stdin = STDIN;
@@ -1261,11 +1261,11 @@ bload_env (SCM a) ///((internal))
 #if __MESC__
   char *mo = "mes/read-0-32.mo";
   g_stdin = open ("module/mes/read-0-32.mo", O_RDONLY);
-  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "mes/read-0-32.mo", O_RDONLY);
+  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "/mes/read-0-32.mo", O_RDONLY);
 #else
   char *mo ="mes/read-0.mo";
   g_stdin = open ("module/mes/read-0.mo", O_RDONLY);
-  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "mes/read-0.mo", O_RDONLY);
+  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "/mes/read-0.mo", O_RDONLY);
 #endif
 
   if (g_stdin < 0) {eputs ("no such file: ");eputs (mo);eputs ("\n");return 1;}