return pseries(s, point, new_seq);
}
+// Differentiation is handled in function::derivative because of its special requirements
+
REGISTER_FUNCTION(Order, eval_func(Order_eval).
series_func(Order_series));
+//////////
+// Inert partial differentiation operator
+//////////
+
+static ex Derivative_eval(const ex & f, const ex & l)
+{
+ if (!is_ex_exactly_of_type(f, function)) {
+ throw(std::invalid_argument("Derivative(): 1st argument must be a function"));
+ }
+ if (!is_ex_exactly_of_type(l, lst)) {
+ throw(std::invalid_argument("Derivative(): 2nd argument must be a list"));
+ }
+ return Derivative(f, l).hold();
+}
+
+REGISTER_FUNCTION(Derivative, eval_func(Derivative_eval));
+
//////////
// Solve linear system
//////////
/** 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_gamma = function_index_Gamma;
unsigned force_include_zeta1 = function_index_zeta1;
#ifndef NO_NAMESPACE_GINAC