Mercurial > hg > octave-lyh

diff src/balance.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 dbb8a47acc3a
children 309fc59f66ee
line wrap: on
line diff
--- a/src/balance.cc
+++ b/src/balance.cc
@@ -43,19 +43,21 @@
 
 #ifdef WITH_DLD
 Octave_object
-builtin_balance_2 (const Octave_object& args, int nargin, int nargout)
+builtin_balance_2 (const Octave_object& args, int nargout)
 {
-  return balance (args, nargin, nargout);
+  return balance (args, nargout);
 }
 #endif
 
 Octave_object
-balance (const Octave_object& args, int nargin, int nargout)
+balance (const Octave_object& args, int nargout)
 {
   char *bal_job;
   int my_nargin;		// # args w/o optional string arg
   Octave_object retval;
 
+  int nargin = args.length ();
+
   // determine if balancing option is listed
   // set my_nargin to the number of matrix inputs
   if (args(nargin-1).const_type () == tree_constant_rep::string_constant ){