Visualizer node aggregates

Fix in macro expander
2025-11-04 17:45:47 +01:00
parent 2fd85be923
commit 2b8a3effed
8 changed files with 1100 additions and 915 deletions
@@ -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