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.
This commit is contained in:
parent
2e950e304f
commit
74d8f05c9a
|
@ -81,7 +81,7 @@ try_open_boot (char *file_name, char const *boot, char const *location)
|
||||||
strcpy (file_name + strlen (file_name), boot);
|
strcpy (file_name + strlen (file_name), boot);
|
||||||
if (g_debug > 1)
|
if (g_debug > 1)
|
||||||
{
|
{
|
||||||
eputs ("mes: reading boot-0 [");
|
eputs ("mes: reading boot-5 [");
|
||||||
eputs (location);
|
eputs (location);
|
||||||
eputs ("]: ");
|
eputs ("]: ");
|
||||||
eputs (file_name);
|
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);
|
int fd = mes_open (file_name, O_RDONLY, 0);
|
||||||
if (g_debug != 0 && fd > 0)
|
if (g_debug != 0 && fd > 0)
|
||||||
{
|
{
|
||||||
eputs ("mes: read boot-0: ");
|
eputs ("mes: read boot-5: ");
|
||||||
eputs (file_name);
|
eputs (file_name);
|
||||||
eputs ("\n");
|
eputs ("\n");
|
||||||
}
|
}
|
||||||
|
@ -107,7 +107,7 @@ open_boot ()
|
||||||
if (getenv ("MES_BOOT") != 0)
|
if (getenv ("MES_BOOT") != 0)
|
||||||
strcpy (boot, getenv ("MES_BOOT"));
|
strcpy (boot, getenv ("MES_BOOT"));
|
||||||
else
|
else
|
||||||
strcpy (boot, "boot-0.scm");
|
strcpy (boot, "boot-5.mes");
|
||||||
if (getenv ("MES_PREFIX") != 0)
|
if (getenv ("MES_PREFIX") != 0)
|
||||||
{
|
{
|
||||||
strcpy (g_datadir, getenv ("MES_PREFIX"));
|
strcpy (g_datadir, getenv ("MES_PREFIX"));
|
||||||
|
|
Loading…
Reference in New Issue