# HG changeset patch
# User jwe
# Date 747887375 0
# Node ID ef73939dc2c5d7e8f4a1a617ce458e116819c4af
# Parent  e03eea9ed19be802e9a56b5508cd69786017b549
[project @ 1993-09-13 02:29:35 by jwe]
(syl): Call is_empty instead of empty_arg.

diff -r e03eea9ed19b -r ef73939dc2c5 src/syl.cc
--- a/src/syl.cc	Mon Sep 13 02:28:52 1993 +0000
+++ b/src/syl.cc	Mon Sep 13 02:29:35 1993 +0000
@@ -50,16 +50,6 @@
 			long, long);
 }
 
-// Local function: check for empty matrix arguments.  Probably should make 
-// this available elsewhere, since tc-xxx functions do this a lot.
-
-int
-empty_arg (tree_constant& arg)
-{
-  return (arg.rows () == 0 || arg.columns () == 0);
-}
-
-
 // Local function: construct return vector of empty matrices.  Return
 // empty matrices and/or gripe when appropriate.  Probably should make
 // this available elsewhere, since tc-xxx functions do this a lot.
@@ -143,7 +133,7 @@
   tree_constant argb = args[2].make_numeric ();
   tree_constant argc = args[3].make_numeric ();
 
-  if (empty_arg (arga) || empty_arg (argb) || empty_arg (argc))
+  if (arga.is_empty () || argb.is_empty () || argc.is_empty ())
     retval = empty_tree (nargout, "syl");
   else
     {