Mercurial > hg > octave-lyh

diff scripts/general/rem.m @ 3980:02a959755258

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-10 18:48:58 by jwe]
author jwe
date Wed, 10 Jul 2002 18:49:37 +0000
parents e031284eea27
children 29ea0e6bd19e
line wrap: on
line diff
--- a/scripts/general/rem.m
+++ b/scripts/general/rem.m
@@ -33,12 +33,10 @@
 
 ## Author: jwe
 
-function retval = rem (x, y)
-
-  usage_msg = "rem (x, y)";
+function r = rem (x, y)
 
   if (nargin != 2)
-    usage (usage_msg);
+    usage ("rem (x, y)");
   endif
 
   if (any (size (x) != size (y)) && ! (is_scalar (x) || is_scalar (y)))
@@ -52,10 +50,6 @@
     error ("rem: complex arguments are not allowed");
   endif
 
-  if (nargin == 2)
-    retval = x - y .* fix (x ./ y);
-  else
-    error (usage_msg);
-  endif
+  r = x - y .* fix (x ./ y);
 
 endfunction