core: %moduledir ends with /.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Jun 2017 15:18:31 +0000 (17:18 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Jun 2017 15:18:31 +0000 (17:18 +0200)
* make/install.make (MODULEDIR): Append /.
  (install): Remove /.
* src/mes.c (load_env, bload_env): Update.

make/install.make
src/mes.c

index 9b6082411869898fc95d05ce7d21664f5df165de..b40e96d29bea29e59e140c691fa8164504c8721e 100644 (file)
@@ -34,7 +34,7 @@ LIBDIR:=$(PREFIX)/lib
 
 GODIR:=$(LIBDIR)/guile/$(GUILE_EFFECTIVE_VERSION)/site-ccache
 GUILEDIR:=$(PREFIX)/share/guile/site/$(GUILE_EFFECTIVE_VERSION)
-MODULEDIR:=$(DATADIR)/module
+MODULEDIR:=$(DATADIR)/module/
 
 .tarball-version: tree-clean-p
        echo $(COMMIT) > $@
@@ -79,7 +79,7 @@ endif
            -e 's,@DOCDIR@,$(DOCDIR)/,g' \
            -e 's,@GODIR@,$(GODIR)/,g' \
            -e 's,@GUILEDIR@,$(GUILEDIR)/,g' \
-           -e 's,@MODULEDIR@,$(MODULEDIR)/,g' \
+           -e 's,@MODULEDIR@,$(MODULEDIR),g' \
            -e 's,@PREFIX@,$(PREFIX)/,g' \
            -e 's,@VERSION@,$(VERSION),g' \
                $(DESTDIR)$(DATADIR)/module/mes/base-0.mes \
index bdac87be5bec80f6966cbd5cdc07d23cdb44960e..1eb8a18720fdeb6857d190cceb24d4065de27fd0 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -1240,7 +1240,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;
@@ -1253,11 +1253,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;}