Test finished, but some bugs still remaining

[helm.git] / helm / DEVEL / lablgtk_gtkmathview / lablgtk-20000829_gtkmathview-0.2.0 / ml_gtk_mathview.c

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c
index 3286f90540a2bc6695f35ff7d2956781c4751f52..184977e5e15018d1ba39f82af35eff74f6b9939c 100644 (file)
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c
+++ b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c
@@ -81,11 +81,13 @@ value ml_gtk_math_view_mDOMNode_of_bodex_option (value arg1)
    CAMLparam1(arg1);
 
    mDOMNodeRef nr;
+   CAMLlocal1 (tmp);
 
    if (arg1==Val_int(0)) {
       nr = NULL;
    } else {
-      nr = (mDOMNodeRef) Field(arg1, 0);
+      tmp = Field(arg1, 0);
+      nr = (mDOMNodeRef) Field(tmp, 1);
    }
 
   CAMLreturn((value) nr);