# HG changeset patch
# User jwe
# Date 785445513 0
# Node ID 2e954ce5263ff44fc4873e7665efa1a7e589b400
# Parent  4fc1ae8c24dc1bbebb2b21c31cadb654b3180db9
[project @ 1994-11-21 19:18:33 by jwe]

diff -r 4fc1ae8c24dc -r 2e954ce5263f scripts/polynomial/roots.m
--- a/scripts/polynomial/roots.m	Mon Nov 21 19:05:31 1994 +0000
+++ b/scripts/polynomial/roots.m	Mon Nov 21 19:18:33 1994 +0000
@@ -7,7 +7,10 @@
 # Copyright Dept of Probability Theory and Statistics TU Wien
   
   [nr, nc] = size(v);
-  if !((nr == 1 && nc > 1) || (nc == 1 && nr > 1))
+  if (nr <= 1 && nc <= 1)
+    r = [];
+    return;
+  elseif (! ((nr == 1 && nc > 1) || (nc == 1 && nr > 1)))
     usage ("roots (v), where v is a nonzero vector");
   endif