From 2102d0d26ef08c58cc9c3c64c7ecfea759bfef10 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 30 Dec 2018 07:44:59 +0100 Subject: [PATCH] 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. --- src/mes.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/mes.c b/src/mes.c index ae4e7509..a85364dc 100644 --- a/src/mes.c +++ b/src/mes.c @@ -2182,7 +2182,7 @@ mes_builtins (SCM a) ///((internal)) } 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); if (g_debug > 1) @@ -2204,7 +2204,7 @@ load_boot (char *prefix, char const *boot, char const *location) } SCM -load_env () ///((internal)) +read_boot () ///((internal)) { g_stdin = -1; char prefix[1024]; @@ -2218,23 +2218,23 @@ load_env () ///((internal)) strcpy (prefix, getenv ("MES_PREFIX")); strcpy (prefix + strlen (prefix), "/module"); 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) { char const *p = MODULEDIR "/mes/"; strcpy (prefix, p); - g_stdin = load_boot (prefix, boot, "MODULEDIR"); + g_stdin = open_boot (prefix, boot, "MODULEDIR"); } if (g_stdin < 0) { strcpy (prefix, "mes/module/mes/"); - g_stdin = load_boot (prefix, boot, "."); + g_stdin = open_boot (prefix, boot, "."); } if (g_stdin < 0) { prefix[0] = 0; - g_stdin = load_boot (prefix, boot, ""); + g_stdin = open_boot (prefix, boot, ""); } if (g_stdin < 0) { @@ -2299,7 +2299,7 @@ main (int argc, char *argv[]) if (g_debug > 3) module_printer (m0); - SCM program = load_env (); + SCM program = read_boot (); push_cc (r2, cell_unspecified, r0, cell_unspecified); if (g_debug > 2)