}
ex sol=lsolve(lst(eqns),lst(symbols));
- ASSERT(sol.nops()==1);
- ASSERT(is_ex_exactly_of_type(sol.op(0),relational));
+ GINAC_ASSERT(sol.nops()==1);
+ GINAC_ASSERT(is_ex_exactly_of_type(sol.op(0),relational));
return sol.op(0).op(1); // return rhs of first solution
}
return ncmul(v,1);
}
+/** Force inclusion of functions from initcns_gamma and inifcns_zeta
+ * for static lib (so ginsh will see them). */
+unsigned force_include_gamma = function_index_gamma;
+unsigned force_include_zeta = function_index_zeta;
+
} // namespace GiNaC