X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=examples%2FStmtEx.spl;h=192eca104adda7daef419e7fcde14df482304cbf;hb=d81ba67093ba9f7a9c2f6d47ec51651f99b4b5b3;hp=35ff0966251c1e93a83e1f5a8722ed620324707b;hpb=157d00517b8542cc729beb49f675c8369343f268;p=cc1516.git

diff --git a/examples/StmtEx.spl b/examples/StmtEx.spl
index 35ff096..192eca1 100644
--- a/examples/StmtEx.spl
+++ b/examples/StmtEx.spl
@@ -4,6 +4,8 @@ var z = 3 + y;
 Int a = facR(4);
 //Int b = test(3);
 var f = beep();
+var n = True;
+var l = 1:2:[];
 
 facR(n) :: Int -> Int {
     test(3);
@@ -15,11 +17,15 @@ facR(n) :: Int -> Int {
     return 5;
 }
 
-test(n) :: Int -> Int {
+test(e) :: Int -> Bool {
     var i = 0;
-    facR(2);
-    while (z < 3) {
-        return 3;
+    i = 1;
+    l.tl = 4:[];
+    l.tl.hd = 3;
+    //l= 1:3:[]
+    facR(z);
+    while (e < 3) {
+        return True;
     }
 }