Implement REPL 'while'

1 files changed, 15 insertions, 0 deletions

diff --git a/repl.c b/repl.c
index b458f08c..d6c8676f 100644
--- a/repl.c
+++ b/repl.c
@@ -299,6 +299,21 @@ void run(env_t *env, ast_t *ast)
         }
         break;
     }
+    case While: {
+        auto while_ = Match(ast, While);
+        bool condition;
+        type_t *cond_t = get_type(env, while_->condition);
+        assert(cond_t->tag == BoolType);
+        for (;;) {
+            eval(env, while_->condition, &condition);
+            if (!condition) break;
+            run(env, while_->body);
+        }
+        break;
+    }
+    // case For: {
+    //     auto for_ = Match(ast, For);
+    // }
     default: {
         eval(env, ast, NULL);
         break;