X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=examples%2FStmtEx.spl;h=ef8cb88ef7c57e3f250735414071f68433ca9f47;hb=da76566f1640467256a8f4e166ebfcd3731aef4b;hp=35ff0966251c1e93a83e1f5a8722ed620324707b;hpb=157d00517b8542cc729beb49f675c8369343f268;p=cc1516.git diff --git a/examples/StmtEx.spl b/examples/StmtEx.spl index 35ff096..ef8cb88 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(e) :: Int -> Bool { var i = 0; - facR(2); - while (z < 3) { - return 3; + facR(z); + while (e < 3) { + return True; } }