X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtk_gtkmathview%2Flablgtk-20000829_gtkmathview-0.2.0%2Fminidom%2Fml_minidom.h;h=cf1be3a4a8c7921f6c39afbd8e79d88188cfc7dd;hb=bc14c3b3f2615a9a207412c8738098d8e8eee00a;hp=c40060153b27110e4b2c735fc50327c1c288d86e;hpb=cd9512e1dab9d1827ce153fc1765cd5208c67599;p=helm.git diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h index c40060153..cf1be3a4a 100644 --- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h +++ b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h @@ -5,6 +5,6 @@ #define mDOMNode_val(v) ((mDOMNodeRef) v) #define mDOMNode_option_mDOMNodeRef(p) (((p) != NULL) ? ml_some((value) (p)) : Val_unit) -#define mDOMNodeRef_mDOMNode_option(v) (((v) == Val_unit) ? NULL : Field((v),0)) -#define Val_mDOMNodeRef(p) ((value) mDOMNode_option_mDOMNodeRef(p)) -#define mDOMNodeRef_val(v) ((mDOMNodeRef) mDOMNodeRef_mDOMNode_option(v)) +#define mDOMNodeRef_mDOMNode_option(v) ((v == Val_unit) ? NULL : (mDOMNodeRef)Field((v),0)) +#define Val_mDOMNodeRef(p) (mDOMNode_option_mDOMNodeRef(p)) +#define mDOMNodeRef_val(v) (mDOMNodeRef_mDOMNode_option(v))