From eb1f6106a36c100ab25cab7f29045e16f6e967fb Mon Sep 17 00:00:00 2001 From: Alessio Treglia Date: Sun, 2 May 2010 22:31:31 +0200 Subject: Imported Upstream version 11.5 --- xen.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'xen.h') diff --git a/xen.h b/xen.h index 0247109..30a094a 100644 --- a/xen.h +++ b/xen.h @@ -15,6 +15,7 @@ /* HISTORY: * + * 19-Mar: removed s7_define_set_function (removed encapsulation from s7, so it's not useful anymore). * 17-Feb: various s7 changes. * 5-Feb-10: XEN_ASSOC_REF and XEN_ASSOC_SET. XEN_ASSOC_REF returns the value, not the key/value pair. * -------- @@ -1000,7 +1001,7 @@ extern XEN xen_false, xen_true, xen_nil, xen_undefined, xen_zero; #define XEN_EQ_P(Arg1, Arg2) s7_is_eq(Arg1, Arg2) #define XEN_EQV_P(Arg1, Arg2) s7_is_eqv(Arg1, Arg2) -#define XEN_EQUAL_P(Arg1, Arg2) s7_is_equal(Arg1, Arg2) +#define XEN_EQUAL_P(Arg1, Arg2) s7_is_equal(s7, Arg1, Arg2) #define XEN_CONS_P(Arg) s7_cons_p(Arg) #define XEN_CONS(Arg1, Arg2) s7_cons(s7, Arg1, Arg2) @@ -1375,7 +1376,6 @@ extern XEN xen_false, xen_true, xen_nil, xen_undefined, xen_zero; #define XEN_DEFINE_PROCEDURE(Name, Func, ReqArg, OptArg, RstArg, Doc) s7_define_function(s7, Name, Func, ReqArg, OptArg, RstArg, Doc) -#define XEN_DEFINE_SET_PROCEDURE(Name, Func, ReqArg, OptArg, RstArg, Doc) s7_define_set_function(s7, Name, Func, ReqArg, OptArg, RstArg, Doc) #define XEN_DEFINE_PROCEDURE_STAR(Name, Func, Args, Doc) s7_define_function_star(s7, Name, Func, Args, Doc) #define XEN_DEFINE_PROCEDURE_WITH_SETTER(Get_Name, Get_Func, Get_Help, Set_Name, Set_Func, Get_Req, Get_Opt, Set_Req, Set_Opt) \ @@ -1407,6 +1407,7 @@ typedef XEN (*XEN_CATCH_BODY_TYPE) (void *dat #define XEN_DEFINE_CONSTANT(Name, Value, Help) xen_s7_define_constant(s7, Name, s7_make_integer(s7, Value), Help) #define XEN_DEFINE(Name, Value) s7_define_variable(s7, Name, Value) +#define XEN_DEFINED_P(Name) s7_is_defined(s7, Name) #define XEN_DEFINE_VARIABLE(Name, Var, Value) Var = xen_define_variable(Name, Value) #define XEN_VARIABLE_SET(Var, Val) s7_symbol_set_value(s7, Var, Val) @@ -1769,7 +1770,6 @@ char *xen_strdup(const char *str); XEN c_to_xen_off_t(off_t val); int64_t xen_to_c_int64_t_or_else(XEN obj, int64_t fallback); int64_t xen_to_c_int64_t(XEN obj); - #define XEN_DEFINE_SET_PROCEDURE(Name, Func, ReqArg, OptArg, RstArg, Doc) XEN_DEFINE_PROCEDURE(Name, Func, ReqArg, OptArg, RstArg, Doc) #endif char *xen_version(void); -- cgit v1.2.3