Index: mlist.w
===================================================================
--- mlist.w	(Revision 4388)
+++ mlist.w	(Arbeitskopie)
@@ -3209,7 +3209,6 @@
     int t_subtype;              /* the effective |subtype| of noad |q| during the second pass */
     pointer p, x, y, z;         /* temporary registers for list construction */
     int pen;                    /* a penalty to be inserted */
-    int s;                      /* the size of a noad to be deleted */
     scaled max_hl, max_d;       /* maximum height and depth of the list translated so far */
     scaled delta;               /* italic correction offset for subscript and superscript */
     scaled cur_mu;              /* the math unit width corresponding to |cur_size| */
@@ -3474,7 +3473,6 @@
            sets up default values so that most of the branches are short. */
         t = simple_noad;
         t_subtype = ord_noad_type;
-        s = noad_size;
         pen = inf_penalty;
         switch (type(q)) {
         case simple_noad:
@@ -3493,15 +3491,12 @@
                 break;
             }
         case radical_noad:
-            s = radical_noad_size;
             break;
         case accent_noad:
-            s = accent_noad_size;
             break;
         case fraction_noad:
             t = simple_noad;
             t_subtype = inner_noad_type;
-            s = fraction_noad_size;
             break;
         case fence_noad:
             t_subtype = make_left_right(q, style, max_d, max_hl);
@@ -3509,7 +3504,6 @@
         case style_node:
             /* Change the current style and |goto delete_q| */
             cur_style = subtype(q);
-            s = style_node_size;
             setup_cur_size(cur_style);
             cur_mu = x_over_n(get_math_quad(cur_size), 18);
             goto DELETE_Q;