begin -> do

Shorter and doesn't imply existence of `end'
2026-09-14 15:48:17 +03:00
parent af6e778185
commit d609a0c591
7 changed files with 9 additions and 9 deletions
--- a/tests/sex-programs/list-macros.sex
+++ b/tests/sex-programs/list-macros.sex
@@ -39,7 +39,7 @@

 (pub defmacro (list-for-each list-type list-var elt-type elt-var what-do)
  (let ((list-var-2 (cat list-var '-2)))
-    `(begin
+    `(do
      (var ,list-var-2 (* ,list-type) ,list-var)
      (var ,elt-var ,elt-type (-> ,list-var-2 value))
      (while (!= (-> ,list-var-2 next) NULL)