Mercurial > hg > octave-terminal
changeset 1577:4ef4fd7c0abd
[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 +++ 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