diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-10-02 00:51:40 +0200 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-10-02 00:51:40 +0200 |
commit | 0f4a66511d4d84d28f365ad301628cf8bfbb9024 (patch) | |
tree | a6150b015c0d88bee750b7b4915a3b5797d4d8d7 /mixguile/mixguile.c | |
parent | d0a07491e459c33273a2efeaf403851c5df4e39d (diff) | |
download | mdk-0f4a66511d4d84d28f365ad301628cf8bfbb9024.tar.gz mdk-0f4a66511d4d84d28f365ad301628cf8bfbb9024.tar.bz2 |
Guile: not using the deprecated gh_* interface.
Diffstat (limited to 'mixguile/mixguile.c')
-rw-r--r-- | mixguile/mixguile.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/mixguile/mixguile.c b/mixguile/mixguile.c index 55483fe..866fd6d 100644 --- a/mixguile/mixguile.c +++ b/mixguile/mixguile.c @@ -1,7 +1,7 @@ /* -*-c-*- -------------- mixguile.c : * Implementation of the functions declared in mixguile.h * ------------------------------------------------------------------ - * Copyright (C) 2001, 2002, 2006, 2007 Free Software Foundation, Inc. + * Copyright (C) 2001, 2002, 2006, 2007, 2009 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -33,14 +33,14 @@ static gboolean init_file_; /* do local initialisation and enter the user provided main */ static void -real_main_ (int argc, char *argv[]) +real_main_ (void *closure, int argc, char *argv[]) { if (vm_dispatcher_) { mixguile_set_cmd_dispatcher (vm_dispatcher_); mixguile_load_bootstrap (init_file_); } - (*main_fun_)(argc, argv); + (*main_fun_)(NULL, argc, argv); } /* @@ -55,7 +55,7 @@ mixguile_init (int argc, char *argv[], gboolean initfile, main_fun_ = main_fun; vm_dispatcher_ = dis; init_file_ = initfile; - gh_enter (argc, argv, real_main_); + scm_boot_guile (argc, argv, real_main_, 0); } /* load bootstrap file */ @@ -85,9 +85,9 @@ mixguile_load_bootstrap (gboolean loadlocal) /* enter the guile repl */ void -mixguile_enter_repl (int argc, char *argv[]) +mixguile_enter_repl (void *closure, int argc, char *argv[]) { - gh_repl (argc, argv); + scm_shell (argc, argv); } /* set the command dispatcher */ |