diff options
Diffstat (limited to 'mixguile/mixguile.c')
| -rw-r--r-- | mixguile/mixguile.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/mixguile/mixguile.c b/mixguile/mixguile.c index 4da3068..482832a 100644 --- a/mixguile/mixguile.c +++ b/mixguile/mixguile.c @@ -1,7 +1,7 @@ /* -*-c-*- -------------- mixguile.c : * Implementation of the functions declared in mixguile.h * ------------------------------------------------------------------ - * Last change: Time-stamp: "01/08/22 01:10:33 jao" + * $Id: mixguile.c,v 1.5 2001/09/24 23:27:42 jao Exp $ * ------------------------------------------------------------------ * Copyright (C) 2001 Free Software Foundation, Inc. * @@ -30,6 +30,7 @@ static mixguile_cmd_dispatcher_t *dispatcher_ = NULL; static mix_vm_cmd_dispatcher_t *vm_dispatcher_ = NULL; static main_func_t main_fun_; +static gboolean init_file_; /* do local initialisation and enter the user provided main */ @@ -49,11 +50,13 @@ real_main_ (int argc, char *argv[]) main function. */ void -mixguile_init (int argc, char *argv[], main_func_t main_fun, +mixguile_init (int argc, char *argv[], gboolean initfile, + main_func_t main_fun, mix_vm_cmd_dispatcher_t *dis) { main_fun_ = main_fun; vm_dispatcher_ = dis; + init_file_ = initfile; gh_enter (argc, argv, real_main_); } @@ -74,7 +77,7 @@ mixguile_load_bootstrap (void) else mixguile_interpret_file (scmfile); - if (!access (lscmfile, R_OK)) + if (init_file_ && !access (lscmfile, R_OK)) { mixguile_interpret_file (lscmfile); } |