Mercurial > hg > octave-nkf

diff src/rand.cc @ 506:0f388340e607

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-09 06:10:34 by jwe]
author jwe
date Sat, 09 Jul 1994 06:10:34 +0000
parents 88614b380d6e
children 309fc59f66ee
line wrap: on
line diff
--- a/src/rand.cc
+++ b/src/rand.cc
@@ -47,9 +47,9 @@
 
 #ifdef WITH_DLD
 Octave_object
-builtin_rand_2 (const Octave_object& args, int nargin, int nargout)
+builtin_rand_2 (const Octave_object& args, int nargout)
 {
-  return rand_internal (args, nargin, nargout);
+  return rand_internal (args, nargout);
 }
 #endif
 
@@ -103,12 +103,14 @@
 }
 
 Octave_object
-rand_internal (const Octave_object& args, int nargin, int nargout)
+rand_internal (const Octave_object& args, int nargout)
 {
 // Assumes that we have been given the correct number of arguments.
 
   Octave_object retval;
 
+  int nargin = args.length ();
+
   static int initialized = 0;
   if (! initialized)
     {