Mercurial > hg > octave-nkf

diff src/rand.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/rand.cc
+++ b/src/rand.cc
@@ -154,13 +154,13 @@
 	    {
 	      retval.resize (1);
 	      char *s = curr_rand_dist ();
-	      retval(0) = tree_constant (s);
+	      retval(0) = s;
 	    }
 	  else if (strcmp (s_arg, "seed") == 0)
 	    {
 	      retval.resize (1);
 	      double d = curr_rand_seed ();
-	      retval(0) = tree_constant (d);
+	      retval(0) = d;
 	    }
 	  else if (strcmp (s_arg, "uniform") == 0)
 	    current_distribution = uniform;
@@ -215,7 +215,7 @@
     {
       retval.resize (1);
       Matrix m (0, 0);
-      retval(0) = tree_constant (m);
+      retval(0) = m;
     }
   else if (n > 0 && m > 0)
     {
@@ -243,7 +243,7 @@
 	      }
 	  }
 
-      retval(0)   = tree_constant (rand_mat);
+      retval(0) = rand_mat;
     }
   else
     error ("rand: invalid negative argument");