Closure-pattern, infix references (interpretataion only)

regression/orig/test062.log

@@ -0,0 +1,4 @@
+> 5
+7
+12
+-2

regression/orig/test064.log

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

regression/test062.expr

@@ -0,0 +1,20 @@
+fun a (x, y) {
+  local a = x + y, b = x - y;
+  {
+   local f = fun () {
+     write (x);
+     write (y);
+     write (a);
+     write (b)
+   };
+
+   a := 100;
+   b := 200;
+   x := 800;
+   y := 1000;
+   
+   return f
+  }
+}
+
+a (5, 7) ()

regression/test062.input

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

regression/test064.expr

@@ -0,0 +1,3 @@
+infixr "++" at "+" (a, b) {return a+b}
+
+write (infix "++" (2, 3))

regression/test064.input

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