From fba2b99b65d5023675a3f270adbc87ef0b0ede8f Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Thu, 23 May 2024 12:40:21 -0400 Subject: Support 'while when' --- test/enums.tm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'test') diff --git a/test/enums.tm b/test/enums.tm index 9f700410..553fcf84 100644 --- a/test/enums.tm +++ b/test/enums.tm @@ -55,3 +55,9 @@ func main(): >> choose_text(Foo.Last("XX")) = "else: Foo.Last(t=\"XX\")" + i := 1 + cases := [Foo.One(1), Foo.One(2), Foo.Zero] + while when cases[i] is One(x): + >> x + i += 1 + -- cgit v1.2.3