X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=examples%2FStmtEx.spl;h=d52e5b72a679e6673cf6f2264878b2563d8cf8f5;hb=2302fbd1f7421f6824879e64d904157acb9797b1;hp=35ff0966251c1e93a83e1f5a8722ed620324707b;hpb=4d2ac25a8c57caa5b68770b22a784c30fe0a794d;p=cc1516.git diff --git a/examples/StmtEx.spl b/examples/StmtEx.spl index 35ff096..d52e5b7 100644 --- a/examples/StmtEx.spl +++ b/examples/StmtEx.spl @@ -4,6 +4,7 @@ var z = 3 + y; Int a = facR(4); //Int b = test(3); var f = beep(); +var n = True; facR(n) :: Int -> Int { test(3); @@ -15,11 +16,11 @@ facR(n) :: Int -> Int { return 5; } -test(n) :: Int -> Int { +test(n) :: Int -> Bool { var i = 0; - facR(2); - while (z < 3) { - return 3; + facR(z); + while (n < 3) { + return True; } }