Visualizer node aggregates

Fix in macro expander

ASTPlayground/ASTPlayground.dproj

@@ -4,7 +4,7 @@
         <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>FMX</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Release</Config>
+        <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <ProjectName Condition="'$(ProjectName)'==''">ASTPlayground</ProjectName>
         <TargetedPlatforms>2</TargetedPlatforms>

ASTPlayground/MainForm.fmx

@@ -234,8 +234,29 @@ object Form1: TForm1
   object ScriptMemo: TMemo
     Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
     DataDetectorTypes = []
+    Lines.Strings = (
+      '(do'
+      '(defmacro repeat [n body]'
+      '  `(do'
+      '    (def loop (fn [counter]'
+      '      (if (> counter 0)'
+      '        (do'
+      '          ~body'
+      '          (recur (- counter 1))'
+      '        )'
+      '        (do'
+      '        )'
+      '      )'
+      '    ))'
+      '    (loop ~n)'
+      '  )'
+      ')'
+      ''
+      '(repeat 5 "hi")'
+      ')')
     StyledSettings = [Size, Style, FontColor]
     TextSettings.Font.Family = 'Consolas'
+    OnChange = ScriptMemoChange
     OnChangeTracking = ScriptMemoChange
     Align = Right
     Position.X = 920.000000000000000000

ASTPlayground/MainForm.pas

@@ -1348,14 +1348,16 @@ procedure TForm1.ShowVizualization(X, Y: Single);
 begin
     FWorkspace.DeleteChildren;
 
-    if FCurrAst <> nil then
-    begin
-        FWorkspace.Build(FCurrAst, TPointF.Create(X, Y));
-    end
-    else if FCurrUnboundAst <> nil then
-    begin
-        FWorkspace.Build(FCurrUnboundAst, TPointF.Create(X, Y));
-    end;
+    FWorkspace.Build(FCurrUnboundAst, TPointF.Create(X, Y));
+    //
+    //    if FCurrAst <> nil then
+    //    begin
+    //        FWorkspace.Build(FCurrAst, TPointF.Create(X, Y));
+    //    end
+    //    else if FCurrUnboundAst <> nil then
+    //    begin
+    //        FWorkspace.Build(FCurrUnboundAst, TPointF.Create(X, Y));
+    //    end;
 end;
 
 end.