# HG changeset patch
# User jwe
# Date 774042911 0
# Node ID 3c95cec7dd0542f4bbd6f4655e229842da007a4f
# Parent  f13cce2fda30cf2838b4af22c9037c625f37ad8d
[project @ 1994-07-12 19:52:40 by jwe]

diff --git a/src/pt-const.cc b/src/pt-const.cc
--- a/src/pt-const.cc
+++ b/src/pt-const.cc
@@ -360,12 +360,12 @@
       }
       break;
     case 3:
-      retval(2) = tree_constant (val, 1);
+      retval(2) = val;
     case 2:
-      retval(0) = tree_constant (tmp, 1);
+      retval(0) = tree_constant (i_idx, 1);
 // If you want this to work more like Matlab, use the following line
 // instead of the previous one.
-//    retval(0) = tree_constant (tmp, (nr != 1));
+//    retval(0) = tree_constant (i_idx, (nr != 1));
       retval(1) = tree_constant (j_idx, 1);
       break;
     default:
@@ -413,7 +413,8 @@
 	  }
       }
 
-  return find_to_fortran_idx (i_idx, j_idx, v, m_nr, m_nc, nargout);
+  tree_constant tmp (v, 1);
+  return find_to_fortran_idx (i_idx, j_idx, tmp, m_nr, m_nc, nargout);
 }
 
 static Octave_object
@@ -453,7 +454,8 @@
 	  }
       }
 
-  return find_to_fortran_idx (i_idx, j_idx, v, m_nr, m_nc, nargout);
+  tree_constant tmp (v, 1);
+  return find_to_fortran_idx (i_idx, j_idx, tmp, m_nr, m_nc, nargout);
 }
 
 Octave_object