From 0f4a66511d4d84d28f365ad301628cf8bfbb9024 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 2 Oct 2009 00:51:40 +0200 Subject: Guile: not using the deprecated gh_* interface. --- mixguile/mixguile.h | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'mixguile/mixguile.h') 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 #include -#include +#include /* 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 * -- cgit v1.2.3