Added tests for non local rets

Tests/lock_nonlocalret.tq

@@ -0,0 +1,16 @@
+obj = @123
+a = {
+    lock obj {
+        "took lock" print
+        {
+            ^^123
+        }()
+    }
+    ^321
+}
+
+async a()
+wait
+lock obj {
+    "released lock!" print
+}

Tests/nonlocalret.tq

@@ -0,0 +1,16 @@
+a = {
+    b = {
+        [1,2,3,4] each: { i |
+            ^^^123 if i > 2
+            i print
+        }
+    }
+    ^b
+}
+b = a()
+b print
+{
+    foo = { ^^123 } \ Force the block to generate a landing pad
+    "crash please" print
+    b() print       \ This should crash!
+}() print