corrected option handling

diff --git a/lang/m2/comp/statement.g b/lang/m2/comp/statement.g
index fcfb3ce..600b126 100644 (file)
--- a/lang/m2/comp/statement.g
+++ b/lang/m2/comp/statement.g
@@ -41,6 +41,7 @@ statement(register struct node **pnd;)
                                        Roption = options['R'];
                                        nd = dot2leaf(Option);
                                        nd->nd_symb = 'R';
+                                       nd->nd_INT = Roption;
                                        *pnd = nd =
                                            dot2node(Link, nd, NULLNODE);
                                        nd->nd_symb = ';';

diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index 2480f3b..66e4fc7 100644 (file)
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -630,10 +630,10 @@ STATIC
 WalkOption(nd)
        struct node *nd;
 {
-       /* Toggle option indicated by node "nd"
+       /* Set option indicated by node "nd"
        */
 
-       options[nd->nd_symb] = ! options[nd->nd_symb];
+       options[nd->nd_symb] = nd->nd_INT;
 }
 
 int (*WalkTable[])() = {