# HG changeset patch
# User jwe
# Date 795994944 0
# Node ID bceff7ccdb797c280ad4216934b7caf93dcd56d8
# Parent  da83c9182359ff5b3f8f8ca393ae97e440586fe9
[project @ 1995-03-23 21:42:24 by jwe]

diff -r da83c9182359 -r bceff7ccdb79 scripts/polynomial/polyreduce.m
--- a/scripts/polynomial/polyreduce.m	Wed Mar 22 14:35:18 1995 +0000
+++ b/scripts/polynomial/polyreduce.m	Thu Mar 23 21:42:24 1995 +0000
@@ -30,18 +30,22 @@
 
   index = find (p == 0);
 
-  index = find (index == 1:length(index));
+  if (length (index) != 0)
 
-  if (length (index) == 0)
-    return;
-  endif
+    index = find (index == 1:length(index));
+
+    if (length (index) != 0)
 
-  if(length(p)>1)
-    p = p (index (length (index))+1:length(p));
-  endif
+      if (length (p) > 1)
+	p = p (index (length (index))+1:length (p));
+      endif
 
-  if (length (p) == 0)
-    p = 0;
+      if (length (p) == 0)
+	p = 0;
+      endif
+
+    endif
+
   endif
 
 endfunction