Fix in Upvalue-Logic

ASTPlayground/MainForm.fmx

@@ -33,7 +33,7 @@ object Form1: TForm1
     end
     object PrettyPrintButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 405.000000000000000000
+      Position.Y = 463.000000000000000000
       TabOrder = 3
       Text = 'Print'
       TextSettings.Trimming = None
@@ -52,7 +52,7 @@ object Form1: TForm1
     end
     object ShowScopeBox: TCheckBox
       Position.X = 24.000000000000000000
-      Position.Y = 465.000000000000000000
+      Position.Y = 436.000000000000000000
       TabOrder = 5
       Text = 'Scope'
     end
@@ -89,7 +89,7 @@ object Form1: TForm1
     end
     object ClearButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 496.000000000000000000
+      Position.Y = 538.000000000000000000
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
@@ -107,7 +107,7 @@ object Form1: TForm1
     end
     object SeriesTestButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 274.000000000000000000
+      Position.Y = 258.000000000000000000
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
@@ -118,7 +118,7 @@ object Form1: TForm1
     end
     object OHLCButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 304.000000000000000000
+      Position.Y = 288.000000000000000000
       TabOrder = 14
       Text = 'OHLC'
       TextSettings.Trimming = None
@@ -126,13 +126,13 @@ object Form1: TForm1
     end
     object DebugBox: TCheckBox
       Position.X = 24.000000000000000000
-      Position.Y = 384.000000000000000000
+      Position.Y = 423.000000000000000000
       TabOrder = 15
       Text = 'Debug'
     end
     object FromJSONButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 544.000000000000000000
+      Position.Y = 586.000000000000000000
       TabOrder = 16
       Text = 'From JSON'
       TextSettings.Trimming = None
@@ -140,7 +140,7 @@ object Form1: TForm1
     end
     object ToJSONButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 574.000000000000000000
+      Position.Y = 616.000000000000000000
       TabOrder = 17
       Text = 'To JSON'
       TextSettings.Trimming = None
@@ -148,12 +148,36 @@ object Form1: TForm1
     end
     object ExternalFuncButton: TButton
       Position.X = 24.000000000000000000
-      Position.Y = 336.000000000000000000
+      Position.Y = 318.000000000000000000
       TabOrder = 18
       Text = 'External Func'
       TextSettings.Trimming = None
       OnClick = ExternalFuncButtonClick
     end
+    object InnerLambdaButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 348.000000000000000000
+      TabOrder = 19
+      Text = 'Inner Lambda'
+      TextSettings.Trimming = None
+      OnClick = InnerLambdaButtonClick
+    end
+    object DumpButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 493.000000000000000000
+      TabOrder = 20
+      Text = 'Dump'
+      TextSettings.Trimming = None
+      OnClick = DumpButtonClick
+    end
+    object FailingUpvalueButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 378.000000000000000000
+      TabOrder = 22
+      Text = 'Upvalue'
+      TextSettings.Trimming = None
+      OnClick = FailingUpvalueButtonClick
+    end
   end
   object Panel2: TPanel
     Align = Client