Small improvements, some errors here and there

[cc1516.git] / examples / StmtEx.spl

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