Better scoping in repeat/for, lazy expression (no implicit import yet)

regression/orig/test103.log

@@ -1,3 +1 @@
-> > > 0
-0
-5
+> > > 5

regression/orig/test104.log

@@ -0,0 +1,10 @@
+> 0
+1
+2
+3
+4
+5
+6
+7
+8
+9

regression/test068.expr

@@ -1,4 +1,4 @@
-fun lazy (f) {
+fun makeLazy (f) {
   local flag = 0, value = 0;
 
   return fun () {
@@ -12,7 +12,7 @@ fun lazy (f) {
   }
 }
 
-local l = lazy (fun () {write (1); return 800});
+local l = makeLazy (fun () {write (1); return 800});
 local x = read ();
 
 write (l ());

regression/test099.expr

@@ -1,4 +1,4 @@
-fun lazy (f) {
+fun makeLazy (f) {
   local flag = 0, value = 0;
 
    fun () {
@@ -12,7 +12,7 @@ fun lazy (f) {
   }
 }
 
-local l = lazy (fun () {write (1);  800});
+local l = makeLazy (fun () {write (1);  800});
 local x = read ();
 
 write (l ());

regression/test103.expr

@@ -1,4 +1,8 @@
+local x;
+
 repeat
   local n = read ();
-  write (n)
-until n > 0
+  x := n
+until n > 0;
+
+write (x)

regression/test103.input

@@ -1,3 +1,3 @@
 0
 0
-5
+5

regression/test104.expr

@@ -0,0 +1,5 @@
+local n = read ();
+
+for local i; i := 0, i<10, i := i + 1 do
+  write (i)
+od   

regression/test104.input

@@ -0,0 +1 @@
+5