core: Rename load_env to read_boot.
* src/mes.c (read_boot): Rename from load_env; Update users. (open_boot): Rename from load_boot; Update users.
This commit is contained in:
parent
51c6e0626d
commit
2102d0d26e
14
src/mes.c
14
src/mes.c
|
@ -2182,7 +2182,7 @@ mes_builtins (SCM a) ///((internal))
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
load_boot (char *prefix, char const *boot, char const *location)
|
open_boot (char *prefix, char const *boot, char const *location)
|
||||||
{
|
{
|
||||||
strcpy (prefix + strlen (prefix), boot);
|
strcpy (prefix + strlen (prefix), boot);
|
||||||
if (g_debug > 1)
|
if (g_debug > 1)
|
||||||
|
@ -2204,7 +2204,7 @@ load_boot (char *prefix, char const *boot, char const *location)
|
||||||
}
|
}
|
||||||
|
|
||||||
SCM
|
SCM
|
||||||
load_env () ///((internal))
|
read_boot () ///((internal))
|
||||||
{
|
{
|
||||||
g_stdin = -1;
|
g_stdin = -1;
|
||||||
char prefix[1024];
|
char prefix[1024];
|
||||||
|
@ -2218,23 +2218,23 @@ load_env () ///((internal))
|
||||||
strcpy (prefix, getenv ("MES_PREFIX"));
|
strcpy (prefix, getenv ("MES_PREFIX"));
|
||||||
strcpy (prefix + strlen (prefix), "/module");
|
strcpy (prefix + strlen (prefix), "/module");
|
||||||
strcpy (prefix + strlen (prefix), "/mes/");
|
strcpy (prefix + strlen (prefix), "/mes/");
|
||||||
g_stdin = load_boot (prefix, boot, "MES_PREFIX");
|
g_stdin = open_boot (prefix, boot, "MES_PREFIX");
|
||||||
}
|
}
|
||||||
if (g_stdin < 0)
|
if (g_stdin < 0)
|
||||||
{
|
{
|
||||||
char const *p = MODULEDIR "/mes/";
|
char const *p = MODULEDIR "/mes/";
|
||||||
strcpy (prefix, p);
|
strcpy (prefix, p);
|
||||||
g_stdin = load_boot (prefix, boot, "MODULEDIR");
|
g_stdin = open_boot (prefix, boot, "MODULEDIR");
|
||||||
}
|
}
|
||||||
if (g_stdin < 0)
|
if (g_stdin < 0)
|
||||||
{
|
{
|
||||||
strcpy (prefix, "mes/module/mes/");
|
strcpy (prefix, "mes/module/mes/");
|
||||||
g_stdin = load_boot (prefix, boot, ".");
|
g_stdin = open_boot (prefix, boot, ".");
|
||||||
}
|
}
|
||||||
if (g_stdin < 0)
|
if (g_stdin < 0)
|
||||||
{
|
{
|
||||||
prefix[0] = 0;
|
prefix[0] = 0;
|
||||||
g_stdin = load_boot (prefix, boot, "<boot>");
|
g_stdin = open_boot (prefix, boot, "<boot>");
|
||||||
}
|
}
|
||||||
if (g_stdin < 0)
|
if (g_stdin < 0)
|
||||||
{
|
{
|
||||||
|
@ -2299,7 +2299,7 @@ main (int argc, char *argv[])
|
||||||
if (g_debug > 3)
|
if (g_debug > 3)
|
||||||
module_printer (m0);
|
module_printer (m0);
|
||||||
|
|
||||||
SCM program = load_env ();
|
SCM program = read_boot ();
|
||||||
push_cc (r2, cell_unspecified, r0, cell_unspecified);
|
push_cc (r2, cell_unspecified, r0, cell_unspecified);
|
||||||
|
|
||||||
if (g_debug > 2)
|
if (g_debug > 2)
|
||||||
|
|
Loading…
Reference in New Issue