--- a/scripts/polynomial/poly.m	Wed Nov 09 20:02:47 1994 +0000
+++ b/scripts/polynomial/poly.m	Wed Nov 09 21:22:15 1994 +0000
@@ -1,13 +1,13 @@
 function y = poly (x)
-  #
-  # If A is a square n-by-n matrix, poly (A) is the row vector of 
-  # the coefficients of det (z * eye(n) - A), the characteristic
-  # polynomial of A.
-  # If x is a vector, poly (x) is a vector of coefficients of the
-  # polynomial whose roots are the elements of x.
 
-  # Written by KH (Kurt.Hornik@neuro.tuwien.ac.at) on Dec 24, 1993 
-  # Copyright Dept of Probability Theory and Statistics TU Wien
+# If A is a square n-by-n matrix, poly (A) is the row vector of 
+# the coefficients of det (z * eye(n) - A), the characteristic
+# polynomial of A.
+# If x is a vector, poly (x) is a vector of coefficients of the
+# polynomial whose roots are the elements of x.
+
+# Written by KH (Kurt.Hornik@neuro.tuwien.ac.at) on Dec 24, 1993 
+# Copyright Dept of Probability Theory and Statistics TU Wien
 
   m = min (size (x));
   n = max (size (x));
@@ -18,7 +18,7 @@
   elseif (m == n)
     v = eig (x);
   else
-    error ("usage:  poly(x), where x is a vector or a square matrix");
+    usage ("poly(x), where x is a vector or a square matrix");
   endif
   
   y = [1, zeros (1, n)];