changeset 473:794b6f480d72

[project @ 1994-06-21 15:50:34 by jwe]
author jwe
date Tue, 21 Jun 1994 15:50:34 +0000
parents 33fe06de2c90
children 4e6f2e50e173
files src/pt-const.cc
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/pt-const.cc	Tue Jun 07 21:57:57 1994 +0000
+++ b/src/pt-const.cc	Tue Jun 21 15:50:34 1994 +0000
@@ -1596,9 +1596,11 @@
     {
     case scalar_constant:
     case complex_scalar_constant:
+      retval = 1;
+      break;
     case string_constant:
     case range_constant:
-      retval = 1;
+      retval = (columns () > 0) ? 1 : 0;
       break;
     case matrix_constant:
       retval = matrix->rows ();