changeset 13258:be74491c20e8

Correct typo in input validation of polynomial functions (Bug #33252) * ppder.m, ppint.m, ppjumps.m, ppval.m: Correct typo placing negation (!) only on first isstruct argument rather than combined (isstruct && strcmp) condition.
author Rik <octave@nomad.inbox5.com>
date Fri, 30 Sep 2011 09:20:08 -0700
parents e052c36bf14f
children b6efe55f97c7
files scripts/polynomial/ppder.m scripts/polynomial/ppint.m scripts/polynomial/ppjumps.m scripts/polynomial/ppval.m
diffstat 4 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/polynomial/ppder.m
+++ b/scripts/polynomial/ppder.m
@@ -32,7 +32,7 @@
     m = 1;
   endif
 
-  if !(isstruct (pp) && strcmp (pp.form, "pp"))
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
     error ("ppder: PP must be a structure");
   endif
 
--- a/scripts/polynomial/ppint.m
+++ b/scripts/polynomial/ppint.m
@@ -28,7 +28,7 @@
   if (nargin < 1 || nargin > 2)
     print_usage ();
   endif
-  if (! isstruct (pp) && strcmp (pp.form, "pp"))
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
     error ("ppint: PP must be a structure");
   endif
 
--- a/scripts/polynomial/ppjumps.m
+++ b/scripts/polynomial/ppjumps.m
@@ -29,7 +29,7 @@
     print_usage ();
   endif
 
-  if (! isstruct (pp) && strcmp (pp.form, "pp"))
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
     error ("ppjumps: PP must be a structure");
   endif
 
--- a/scripts/polynomial/ppval.m
+++ b/scripts/polynomial/ppval.m
@@ -37,8 +37,8 @@
   if (nargin != 2)
     print_usage ();
   endif
-  if (! isstruct (pp) && strcmp (pp.form, "pp"))
-    error ("ppval: expects a pp-form structure");
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
+    error ("ppval: first argument must be a pp-form structure");
   endif
 
   ## Extract info.