ada.2 switch back `do` from built-in function to special form

[jackhill/mal.git] / ada.2 / step9_try.adb

diff --git a/ada.2/step9_try.adb b/ada.2/step9_try.adb
index 6c91061..397f1db 100644 (file)
--- a/ada.2/step9_try.adb
+++ b/ada.2/step9_try.adb
@@ -163,7 +163,16 @@ procedure Step9_Try is
                Env.all.Set (Key, Val);  --  Check key kind.
                return Val;
             end;
-         --  do is a built-in function, shortening this test cascade.
+         elsif First.Str.all = "do" then
+            Err.Check (1 < Ast.Sequence.all.Length, "do expects arguments");
+            declare
+               Result : Types.T;
+            begin
+               for I in 2 .. Ast.Sequence.all.Length loop
+                  Result := Eval (Ast.Sequence.all.Data (I), Env);
+               end loop;
+               return Result;
+            end;
          elsif First.Str.all = "fn*" then
             Err.Check (Ast.Sequence.all.Length = 3, "expected 2 parameters");
             declare