Mercurial > octave

diff src/quad.cc @ 516:309fc59f66ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-13 02:31:31 by jwe]
author jwe
date Wed, 13 Jul 1994 02:31:31 +0000
parents 0f388340e607
children b9284136189a
line wrap: on
line diff
--- a/src/quad.cc	Wed Jul 13 02:31:31 1994 +0000
+++ b/src/quad.cc	Wed Jul 13 02:31:31 1994 +0000
@@ -62,10 +62,10 @@
 {
   double retval = 0.0;
 
-//  tree_constant name = tree_constant (quad_fcn->name ());
+//  tree_constant name = quad_fcn->name ();
   Octave_object args (2);
 //  args(0) = name;
-  args(1) = tree_constant (x);
+  args(1) = x;
 
   if (quad_fcn != (tree_fvc *) NULL)
     {
@@ -190,10 +190,10 @@
 
   retval.resize (4);
 
-  retval(0) = tree_constant (val);
-  retval(1) = tree_constant ((double) ier);
-  retval(2) = tree_constant ((double) nfun);
-  retval(3) = tree_constant (abserr);
+  retval(0) = val;
+  retval(1) = ier;
+  retval(2) = nfun;
+  retval(3) = abserr;
 
   return retval;
 }