diff options
author | Hans-Peter Deifel <hpdeifel@gmx.de> | 2011-03-09 16:21:34 +0100 |
---|---|---|
committer | Hans-Peter Deifel <hpdeifel@gmx.de> | 2011-03-09 16:21:34 +0100 |
commit | e2f2d34726d3c08710f954a6de02bdcfae054095 (patch) | |
tree | 62b4b1fd118e29fc3e0581043edbd3e5d9ecf5a7 | |
parent | 453824f21e16c95c2917e4e8bc54cdebdc3e153e (diff) | |
download | xbindkeys-e2f2d34726d3c08710f954a6de02bdcfae054095.tar.gz |
options.c: The GH interface has been removed in guile-2.0 so do not use it anymore in xbindkeys.
-rw-r--r-- | ChangeLog | 2 | ||||
-rw-r--r-- | options.c | 3 |
2 files changed, 3 insertions, 2 deletions
@@ -1,6 +1,8 @@ 2011-03-09 Hans-Peter Deifel <hpdeifel@gmx.de> * options.c: Replace some deprecated guile functions. + The GH interface has been removed in guile-2.0 so do not use it + anymore in xbindkeys. 2011-02-21 Philippe Brochard <pbrochard@common-lisp.net> @@ -28,7 +28,6 @@ #ifdef GUILE_FLAG #include <libguile.h> -#include <guile/gh.h> #endif char *display_name = NULL; @@ -1060,7 +1059,7 @@ SCM xbindkey_function_wrapper (SCM key, SCM fun) return SCM_BOOL_F; } else { - printf ("add_key ok!!! fun=%d\n", gh_procedure_p (fun)); + printf ("add_key ok!!! fun=%d\n", (scm_procedure_p (fun) == SCM_BOOL_T)); } //scm_permanent_object (tab_scm[0]); |