.

1 files changed, 12 insertions, 0 deletions

diff --git a/shell/data.limg b/shell/data.limg
index 03aa276d..02a6fd5e 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -122,6 +122,18 @@
      (while ,test
        ,@body
        ,update))])
+    (repeat . [# Ideally we shouldn't have to provide
+# var.
+# But then nested repeats won't work
+# until we use gensyms.
+# And shell doesn't currently support
+# gensyms.
+# By exposing var to caller, it becomes
+# caller's responsibility to use unique
+# vars for each invocation of repeat.
+mac (repeat var n . body)
+  `(for ,var 0 (,var < ,n) (++ ,var)
+     ,@body)])
     (grid . [def (grid m n val)
   ret g (populate n ())
     for i 0 (< i n) ++i