# HG changeset patch
# User jwe
# Date 755907695 0
# Node ID 23866011a5f2295864d7ec82276ac7ba57874237
# Parent  1c9a678906fb80548b382d46955cbccad20e21f2
[project @ 1993-12-14 22:21:12 by jwe]

diff -r 1c9a678906fb -r 23866011a5f2 src/pt-const.cc
--- a/src/pt-const.cc	Tue Dec 14 06:24:21 1993 +0000
+++ b/src/pt-const.cc	Tue Dec 14 22:21:35 1993 +0000
@@ -2445,6 +2445,13 @@
     }
 }
 
+tree_constant
+tree_constant::eval (int argc, char **argv, int print)
+{
+  ::error ("first element of word-list command is a constant");
+  return tree_constant ();
+}
+
 #if defined (MDEBUG)
 void *
 tree_constant::operator new (size_t size)
diff -r 1c9a678906fb -r 23866011a5f2 src/pt-const.h
--- a/src/pt-const.h	Tue Dec 14 06:24:21 1993 +0000
+++ b/src/pt-const.h	Tue Dec 14 22:21:35 1993 +0000
@@ -762,6 +762,8 @@
       return retval;
     }
 
+  tree_constant eval (int argc, char **argv, int print);
+
   tree_constant *eval (const tree_constant *args, int n_in, int n_out,
 		       int print)
     { return rep->eval (args, n_in, n_out, print); }