--- a/stage4/generate_c/generate_c_base.cc	Sat Nov 17 10:08:38 2007 +0100
+++ b/stage4/generate_c/generate_c_base.cc	Thu Dec 06 18:01:58 2007 +0100
@@ -254,6 +254,12 @@
     void *visit(boolean_true_c *symbol) {s4o.print("TRUE"); return NULL;}
     void *visit(boolean_false_c *symbol) {s4o.print("FALSE"); return NULL;}
 
+    void *visit(neg_expression_c *symbol) {
+      s4o.print("-");
+      symbol->exp->accept(*this);
+      return NULL;
+    }
+
 /*******************************/
 /* B.1.2.2   Character Strings */
 /*******************************/
@@ -552,8 +558,6 @@
 /*  subscripted_variable '[' subscript_list ']' */
 SYM_REF2(array_variable_c, subscripted_variable, subscript_list)
 
-/* subscript_list ',' subscript */
-SYM_LIST(subscript_list_c)
 #endif
 
 /*  record_variable '.' field_selector */