Mercurial > octave

changeset 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 75077e1455dd
children caa181489200
files scripts/general/perror.m
diffstat 1 files changed, 2 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/general/perror.m	Thu Oct 19 04:46:37 1995 +0000
+++ b/scripts/general/perror.m	Thu Oct 19 04:49:05 1995 +0000
@@ -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