Mercurial > octave-nkf

diff src/g-builtins.cc @ 289:c23f50e61c58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-01-13 06:25:58 by jwe]
author jwe
date Thu, 13 Jan 1994 06:26:54 +0000
parents ea306e13ce22
children 5325afdb0ef5
line wrap: on
line diff
--- a/src/g-builtins.cc	Thu Jan 13 03:29:16 1994 +0000
+++ b/src/g-builtins.cc	Thu Jan 13 06:26:54 1994 +0000
@@ -335,11 +335,8 @@
 {
   tree_constant *retval = NULL_TREE_CONST;
 
-  if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3)
-    DLD_BUILTIN (args, nargin, nargout, dassl_options,
-		 retval = dassl_options (args, nargin, nargout);)
-  else
-    print_usage ("dassl_options");
+  DLD_BUILTIN (args, nargin, nargout, dassl_options,
+	       retval = dassl_options (args, nargin, nargout);)
 
   return retval;
 }
@@ -797,11 +794,8 @@
 {
   tree_constant *retval = NULL_TREE_CONST;
 
-  if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3)
-    DLD_BUILTIN (args, nargin, nargout, fsolve_options,
-		 retval = fsolve_options (args, nargin, nargout);)
-  else
-    print_usage ("fsolve_options");
+  DLD_BUILTIN (args, nargin, nargout, fsolve_options,
+	       retval = fsolve_options (args, nargin, nargout);)
 
   return retval;
 }
@@ -1049,11 +1043,8 @@
 {
   tree_constant *retval = NULL_TREE_CONST;
 
-  if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3)
-    DLD_BUILTIN (args, nargin, nargout, lpsolve_options,
-		 retval = lpsolve_options (args, nargin, nargout);)
-  else
-    print_usage ("lpsolve_options");
+  DLD_BUILTIN (args, nargin, nargout, lpsolve_options,
+	       retval = lpsolve_options (args, nargin, nargout);)
 
   return retval;
 }
@@ -1080,11 +1071,8 @@
 {
   tree_constant *retval = NULL_TREE_CONST;
 
-  if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3)
-    DLD_BUILTIN (args, nargin, nargout, lsode_options,
-		 retval = lsode_options (args, nargin, nargout);)
-  else
-    print_usage ("lsode_options");
+  DLD_BUILTIN (args, nargin, nargout, lsode_options,
+	       retval = lsode_options (args, nargin, nargout);)
 
   return retval;
 }
@@ -1417,11 +1405,8 @@
 {
   tree_constant *retval = NULL_TREE_CONST;
 
-  if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3)
-    DLD_BUILTIN (args, nargin, nargout, quad_options,
-		 retval = quad_options (args, nargin, nargout);)
-  else
-    print_usage ("quad_options");
+  DLD_BUILTIN (args, nargin, nargout, quad_options,
+	       retval = quad_options (args, nargin, nargout);)
 
   return retval;
 }