diff options
Diffstat (limited to 'mixguile/mixguile.c')
| -rw-r--r-- | mixguile/mixguile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mixguile/mixguile.c b/mixguile/mixguile.c index 482832a..2f1ae48 100644 --- a/mixguile/mixguile.c +++ b/mixguile/mixguile.c @@ -1,7 +1,7 @@ /* -*-c-*- -------------- mixguile.c : * Implementation of the functions declared in mixguile.h * ------------------------------------------------------------------ - * $Id: mixguile.c,v 1.5 2001/09/24 23:27:42 jao Exp $ + * $Id: mixguile.c,v 1.6 2001/09/28 23:10:45 jao Exp $ * ------------------------------------------------------------------ * Copyright (C) 2001 Free Software Foundation, Inc. * @@ -40,7 +40,7 @@ real_main_ (int argc, char *argv[]) if (vm_dispatcher_) { mixguile_set_cmd_dispatcher (vm_dispatcher_); - mixguile_load_bootstrap (); + mixguile_load_bootstrap (init_file_); } (*main_fun_)(argc, argv); } @@ -62,7 +62,7 @@ mixguile_init (int argc, char *argv[], gboolean initfile, /* load bootstrap file */ void -mixguile_load_bootstrap (void) +mixguile_load_bootstrap (gboolean loadlocal) { const gchar *scmfile = SCM_FILE; gchar *lscmfile = g_strconcat (g_get_home_dir (), G_DIR_SEPARATOR_S, @@ -77,7 +77,7 @@ mixguile_load_bootstrap (void) else mixguile_interpret_file (scmfile); - if (init_file_ && !access (lscmfile, R_OK)) + if (loadlocal && !access (lscmfile, R_OK)) { mixguile_interpret_file (lscmfile); } |