Mercurial > hg > octave-lyh

diff scripts/general/perror.m @ 1577:4ef4fd7c0abd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-19 04:49:05 by jwe]
author jwe
date Thu, 19 Oct 1995 04:49:05 +0000
parents 6cc5d208c566
children 5d29638dd524
line wrap: on
line diff
--- a/scripts/general/perror.m
+++ b/scripts/general/perror.m
@@ -31,16 +31,8 @@
 
   if (nargin != 2)
     usage ("perror (name, err)");
-  endif
-
-  if (! isstr (name))
-    error ("perror: first argument must be a string");
+  else
+    printf (strerror (name, err));
   endif
 
-  if (! is_scalar (err))
-    error ("perror: second argument must be a scalar");
-  endif
-
-  printf (strerror (name, err));
-
 endfunction