From 981c0524b7e174058979f5655c5ea29412fffb78 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Wed, 30 Dec 2020 23:11:58 +0100
Subject: [PATCH] DRAFT core: Switch to Guile modules.

TODO XXX:
  * tests/psyntax.test fails
  * mescc

* src/mes.c (open_boot): Default to boot-5.mes.
(try_open_boot): Update messages.
---
 src/mes.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mes.c b/src/mes.c
index 0ef8877f..bd7dfe42 100644
--- a/src/mes.c
+++ b/src/mes.c
@@ -81,7 +81,7 @@ try_open_boot (char *file_name, char const *boot, char const *location)
   strcpy (file_name + strlen (file_name), boot);
   if (g_debug > 1)
     {
-      eputs ("mes: reading boot-0 [");
+      eputs ("mes: reading boot-5 [");
       eputs (location);
       eputs ("]: ");
       eputs (file_name);
@@ -90,7 +90,7 @@ try_open_boot (char *file_name, char const *boot, char const *location)
   int fd = mes_open (file_name, O_RDONLY, 0);
   if (g_debug != 0 && fd > 0)
     {
-      eputs ("mes: read boot-0: ");
+      eputs ("mes: read boot-5: ");
       eputs (file_name);
       eputs ("\n");
     }
@@ -107,7 +107,7 @@ open_boot ()
   if (getenv ("MES_BOOT") != 0)
     strcpy (boot, getenv ("MES_BOOT"));
   else
-    strcpy (boot, "boot-0.scm");
+    strcpy (boot, "boot-5.mes");
   if (getenv ("MES_PREFIX") != 0)
     {
       strcpy (g_datadir, getenv ("MES_PREFIX"));