Rw bindings to lists were being mishandled, pmichaud++

sorear · Aug 18, 2012 · 025a6e6 · 025a6e6
1 parent c248dcf
commit 025a6e6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/CodeGen.cs b/lib/CodeGen.cs
@@ -2699,9 +2699,9 @@ class NamProcessor {
                 CpsOp typ = th.Scan(zyg[3]);
                 CpsOp rhs = th.Scan(zyg[4]);
                 int ro   = JScalar.B(zyg[1]) ? 0 : Kernel.NBV_RW;
-                int list = JScalar.B(zyg[2]) ? Kernel.NBV_LIST : 0;
+                int mode = JScalar.B(zyg[2]) ? Kernel.NBV_LIST : ro; // ignore RW if LIST
                 return CpsOp.MethodCall(Tokens.Kernel_NewBoundVar,
-                    CpsOp.IntLiteral(ro+list), typ, rhs);
+                    CpsOp.IntLiteral(mode), typ, rhs);
             };
             handlers["whileloop"] = delegate(NamProcessor th, object[] z) {
                 return CpsOp.While(FixBool(z[1]), FixBool(z[2]),