Fixed macro def expansion

2025-11-05 10:39:15 +01:00
parent edd3e83377
commit 60358365cd
6 changed files with 11 additions and 53 deletions
@@ -236,23 +236,9 @@ object Form1: TForm1
    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")'
+      '(defmacro test [body] `(fn [] ~body ))'
+      '(defmacro test2 [body] `(fn [] ~body ))'
+      '(test2 "hi")'
      ')')
    StyledSettings = [Size, Style, FontColor]
    TextSettings.Font.Family = 'Consolas'