Merge pull request 'expr-repeat' (#19) from expr-repeat into main

Reviewed-on: #19

src/ludus/grammar.cljc

@@ -229,7 +229,7 @@
 (defp loop-expr group order-1 [(quiet :loop) tuple (quiet :with)
                               	(flat (choice :loop-body [fn-clause compound-loop]))])
 
-(defp repeat-expr group order-1 [(quiet :repeat) (choice :times [:word :number]) block])
+(defp repeat-expr group order-1 [(quiet :repeat) (choice :times [:word :number]) non-binding])
 
 (defp collection flat choice [;struct-literal 
                               dict list-literal set-literal tuple])

src/ludus/interpreter.cljc

@@ -811,9 +811,9 @@
         times (if (= :word (:type times-expr))
                 (resolve-word times-expr ctx)
                 (-> times-expr :data first))
-        block (second data)]
+        expr (second data)]
     (if (not (number? times)) (throw (ex-info (str "Repeat needs a number, not a " (base/get-type times)) {})))
-    (dotimes [_ times] (interpret-ast block ctx))))
+    (dotimes [_ times] (interpret-ast expr ctx))))
 
 (defn- interpret-literal [ast] (-> ast :data first))
 

src/ludus/node.cljc

@@ -60,8 +60,8 @@
 
 (comment
   (def source "
-
-    :a (_)
+    let times = 4
+    repeat times print! (:foo)
 
     ")