Auto-fetch in (unbox) to reduce boilerplace a bit

sorear · Aug 19, 2012 · 51face1 · 51face1
1 parent 025a6e6
commit 51face1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/CodeGen.cs b/lib/CodeGen.cs
@@ -2693,6 +2693,8 @@ static NamProcessor() {
             handlers["unbox"] = delegate(NamProcessor th, object[] zyg) {
                 Type t = namtype(zyg[1]);
                 CpsOp unboxee = th.Scan(zyg[2]);
+                if (unboxee.head.Returns == Tokens.Variable)
+                    unboxee = CpsOp.MethodCall(Tokens.Variable_Fetch, unboxee);
                 return CpsOp.MethodCall(Tokens.Kernel.GetMethod("UnboxAny").MakeGenericMethod(t), unboxee);
             };
             handlers["newboundvar"] = delegate(NamProcessor th, object[] zyg) {