# HG changeset patch
# User jwe
# Date 772213834 0
# Node ID 794b6f480d72b5e8397c1bacae5b6927c3b06c65
# Parent  33fe06de2c909f9559f01746d1c0a81da4aff30e
[project @ 1994-06-21 15:50:34 by jwe]

diff --git a/src/pt-const.cc b/src/pt-const.cc
--- a/src/pt-const.cc
+++ b/src/pt-const.cc
@@ -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 ();