Mercurial > hg > octave-lyh

diff scripts/general/rem.m @ 3457:e031284eea27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-19 08:49:56 by jwe]
author jwe
date Wed, 19 Jan 2000 08:50:14 +0000
parents f8dde1807dee
children 02a959755258
line wrap: on
line diff
--- a/scripts/general/rem.m
+++ b/scripts/general/rem.m
@@ -35,8 +35,10 @@
 
 function retval = rem (x, y)
 
+  usage_msg = "rem (x, y)";
+
   if (nargin != 2)
-    usage ("rem (x, y)");
+    usage (usage_msg);
   endif
 
   if (any (size (x) != size (y)) && ! (is_scalar (x) || is_scalar (y)))
@@ -53,7 +55,7 @@
   if (nargin == 2)
     retval = x - y .* fix (x ./ y);
   else
-    error ("usage: rem (x, y)");
+    error (usage_msg);
   endif
 
 endfunction