# HG changeset patch
# User jwe
# Date 797288424 0
# Node ID 8ec4c0c375a2114868e401cf26cab954c5f3a558
# Parent  0ffb52e268d78c32b96e0d772081ec0eb5c129c6
[project @ 1995-04-07 21:00:24 by jwe]

diff -r 0ffb52e268d7 -r 8ec4c0c375a2 src/tc-inlines.h
--- a/src/tc-inlines.h	Fri Apr 07 00:34:39 1995 +0000
+++ b/src/tc-inlines.h	Fri Apr 07 21:00:24 1995 +0000
@@ -179,20 +179,24 @@
   int nc = 0; \
   Matrix m; \
   ComplexMatrix cm; \
-  if ((tc).const_type () == TC_REP::complex_matrix_constant) \
+  if ((tc).is_real_type ()) \
+    { \
+      m = (tc).matrix_value (); \
+      nr = (m).rows (); \
+      nc = (m).columns (); \
+    } \
+  else if ((tc).is_complex_type ()) \
     { \
       cm = (tc).complex_matrix_value (); \
       nr = (cm).rows (); \
       nc = (cm).columns (); \
     } \
-  else if ((tc).const_type () == TC_REP::matrix_constant) \
+  else \
     { \
-      m = (tc).matrix_value (); \
-      nr = (m).rows (); \
-      nc = (m).columns (); \
+      panic_impossible (); \
     } \
-  else \
-    panic_impossible ();
+  if (error_state) \
+    return;
 
 // Assign a real or complex value to a tree_constant.
 //