Mercurial > hg > octave-nkf

diff src/DLD-FUNCTIONS/lsode.cc @ 2968:e330cb788508

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-05-15 17:40:29 by jwe]
author jwe
date Thu, 15 May 1997 17:54:17 +0000
parents 295f037b4b3e
children 38de16594cb4
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/lsode.cc
+++ b/src/DLD-FUNCTIONS/lsode.cc
@@ -36,16 +36,16 @@
 #include "gripes.h"
 #include "help.h"
 #include "oct-obj.h"
-#include "oct-sym.h"
+#include "ov-fcn.h"
 #include "pager.h"
 #include "utils.h"
 #include "variables.h"
 
 // Global pointer for user defined function required by lsode.
-static octave_symbol *lsode_fcn;
+static octave_function *lsode_fcn;
 
 // Global pointer for optional user defined jacobian function used by lsode.
-static octave_symbol *lsode_jac;
+static octave_function *lsode_jac;
 
 static LSODE_options lsode_opts;
 
@@ -67,7 +67,7 @@
 
   if (lsode_fcn)
     {
-      octave_value_list tmp = lsode_fcn->eval (1, args);
+      octave_value_list tmp = lsode_fcn->do_index_op (1, args);
 
       if (error_state)
 	{
@@ -107,7 +107,7 @@
 
   if (lsode_jac)
     {
-      octave_value_list tmp = lsode_jac->eval (1, args);
+      octave_value_list tmp = lsode_jac->do_index_op (1, args);
 
       if (error_state)
 	{