Make p6capturelex not create a busted chain.

It didn't care what it shoved into .outer, meaning that we could put
entirely wrong things in there. This tries to do a bit better, though
really the longer-term solution is to fix up the code-gen, hopefully
by leaving the QAST compiler to work it out. In the meantime, this
seems to fix various lexical issues.

src/vm/jvm/runtime/org/perl6/rakudo/Ops.java

@@ -443,7 +443,11 @@ public static SixModelObject p6capturelex(SixModelObject codeObj, ThreadContext
         GlobalExt gcx = key.getGC(tc);
         CodeRef closure = (CodeRef)codeObj.get_attribute_boxed(tc,
                 gcx.Code, "$!do", HINT_CODE_DO);
-        closure.outer = tc.curFrame;
+        StaticCodeInfo wantedStaticInfo = closure.staticInfo.outerStaticInfo;
+        if (tc.curFrame.codeRef.staticInfo == wantedStaticInfo)
+            closure.outer = tc.curFrame;
+        else if (tc.curFrame.outer.codeRef.staticInfo == wantedStaticInfo)
+            closure.outer = tc.curFrame.outer;
         return codeObj;
     }