dtable.c in tioga-1.9

- old
+ new

@@ -1841,10 +1841,11 @@
    rb_define_method(cDtable, "tan", dtable_tan, 0);
    rb_define_method(cDtable, "tanh", dtable_tanh, 0);
 
    /* nonstandard math functions */
    rb_define_method(cDtable, "neg", dtable_neg, 0);
+   rb_define_alias(cDtable, "-@", "neg");
    rb_define_method(cDtable, "exp10", dtable_exp10, 0);
    rb_define_method(cDtable, "inv", dtable_inv, 0);
    rb_define_method(cDtable, "trim", dtable_trim, -1);
    rb_define_method(cDtable, "safe_log", dtable_safe_log, -1);
    rb_define_method(cDtable, "safe_log10", dtable_safe_log10, -1);
@@ -1912,11 +1913,10 @@
    */
    RB_EXPORT_SYMBOL(cDtable, Read_Dtable);
    RB_EXPORT_SYMBOL(cDtable, Dtable_Ptr);
 
    /* now we import the symbols from Dvector */
-
-   VALUE cDvector = rb_define_class_under(mDobjects, "Dvector", rb_cObject);
+   VALUE cDvector = rb_const_get(mDobjects, rb_intern("Dvector"));
    RB_IMPORT_SYMBOL(cDvector, Dvector_Create);
    RB_IMPORT_SYMBOL(cDvector, Dvector_Data_Resize);
    RB_IMPORT_SYMBOL(cDvector, Dvector_Data_Replace);
    RB_IMPORT_SYMBOL(cDvector, Dvector_Data_for_Read);
    RB_IMPORT_SYMBOL(cDvector, Dvector_Store_Double);