Mercurial > hg > octave-lyh

diff scripts/general/rem.m @ 4008:a0e323e959cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-26 04:51:03 by jwe]
author jwe
date Fri, 26 Jul 2002 04:51:03 +0000
parents 29ea0e6bd19e
children 22bd65326ec1
line wrap: on
line diff
--- a/scripts/general/rem.m
+++ b/scripts/general/rem.m
@@ -46,10 +46,10 @@
   ## Matlab allows complex arguments, but as far as I can tell, that's a
   ## bunch of hooey.
 
-  if (any (any (imag (x))) || any (any (imag (y))))
+  if (isreal (x) && isreal (y))
+    r = x - y .* fix (x ./ y);
+  else
     error ("rem: complex arguments are not allowed");
   endif
 
-  r = x - y .* fix (x ./ y);
-
 endfunction