# HG changeset patch
# User jwe
# Date 815412371 0
# Node ID ac7e10016ca0e15f575a56e39a0b86084fccb1a7
# Parent  da72f1fae389ec746defe19a93fa632c1c4ff203
[project @ 1995-11-03 15:26:11 by jwe]

diff --git a/src/pt-const.h b/src/pt-const.h
--- a/src/pt-const.h
+++ b/src/pt-const.h
@@ -609,11 +609,11 @@
 
   tree_constant eval (int print_result)
     {
-      if (! is_scalar_type ())
-	rep->maybe_mutate ();
-
       if (print_result)
-	print ();
+	{
+	  rep->maybe_mutate ();  // XXX FIXME XXX -- is this necessary?
+	  print ();
+	}
 
       return *this;
     }