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.h | |
parent | d0a07491e459c33273a2efeaf403851c5df4e39d (diff) | |
download | mdk-0f4a66511d4d84d28f365ad301628cf8bfbb9024.tar.gz mdk-0f4a66511d4d84d28f365ad301628cf8bfbb9024.tar.bz2 |
Guile: not using the deprecated gh_* interface.
Diffstat (limited to 'mixguile/mixguile.h')
-rw-r--r-- | mixguile/mixguile.h | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/mixguile/mixguile.h b/mixguile/mixguile.h index 3481433..dfa8219 100644 --- a/mixguile/mixguile.h +++ b/mixguile/mixguile.h @@ -1,7 +1,7 @@ /* -*-c-*- ---------------- mixguile.h : * Interface to the mixguile interpreter. * ------------------------------------------------------------------ - * Copyright (C) 2001, 2006, 2007 Free Software Foundation, Inc. + * Copyright (C) 2001, 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 @@ -25,14 +25,15 @@ #include <mixlib/mix.h> #include <mixlib/mix_vm_command.h> -#include <guile/gh.h> +#include <libguile.h> /* the main function type */ -typedef void (*main_func_t) (int argc, char *argv[]); +typedef void (*main_func_t) (void *closure, int argc, char *argv[]); /* enter and do the initialisation manually inside the guile world */ -#define mixguile_enter(argc,argv,main_fun) gh_enter (argc, argv, main_fun) +#define mixguile_enter(argc,argv,main_fun) \ + scm_boot_guile (argc, argv, main_fun, 0) /* load mixguile startup file */ extern void @@ -52,7 +53,7 @@ mixguile_set_cmd_dispatcher (mix_vm_cmd_dispatcher_t *dis); /* enter the guile repl */ extern void -mixguile_enter_repl (int argc, char *argv[]); +mixguile_enter_repl (void *closure,int argc, char *argv[]); /* access the comand dispatcher */ extern mix_vm_cmd_dispatcher_t * |