fix all the cases, much white noise, array to list, string to sym stuff

test/cases/module_def/module_assign_var.tst

@@ -2,6 +2,8 @@ module Opers
   abba = 5
 end
 -- -- --
-s(:list,  [s(:module,  "Opers",  [s(:assign, 
-  s(:name,  "abba"), 
-  s(:int,  5))])])
+s(:expressions, 
+  s(:module,  :Opers, 
+    s(:assign, 
+      s(:name,  :abba), 
+      s(:int,  5))))

test/cases/module_def/module_class.tst

@@ -4,8 +4,12 @@ module Foo
   end
 end
 -- -- --
-s(:list,  [s(:module,  "Foo",  [s(:class,  "Bar",  nil,  [s(:call, 
-  s(:name,  "funcall"), 
-  s(:arguments, 
-    s(:int,  3), 
-    s(:name,  "var")))])])])
+s(:expressions, 
+  s(:module,  :Foo, 
+    s(:class,  :Bar, 
+      s(:derives,  nil), 
+      s(:call, 
+        s(:name,  :funcall), 
+        s(:arguments, 
+          s(:int,  3), 
+          s(:name,  :var))))))

test/cases/module_def/module_function.tst

@@ -5,15 +5,18 @@ module Soho
   end
 end
 -- -- --
-s(:list,  [s(:module,  "Soho",  [s(:call, 
-  s(:name,  "ofthen"), 
-  s(:arguments, 
-    s(:int,  3), 
-    s(:name,  "var"))), s(:function,  :int, 
-  s(:name,  "ofthen"), 
-  s(:parameters, 
-    s(:field,  :int,  :n), 
-    s(:field,  :ref,  :m)), 
-  s(:expressions, 
-    s(:return, 
-      s(:int,  44))))])])
+s(:expressions, 
+  s(:module,  :Soho, 
+    s(:call, 
+      s(:name,  :ofthen), 
+      s(:arguments, 
+        s(:int,  3), 
+        s(:name,  :var))), 
+    s(:function,  :int, 
+      s(:name,  :ofthen), 
+      s(:parameters, 
+        s(:field,  :int,  :n), 
+        s(:field,  :ref,  :m)), 
+      s(:expressions, 
+        s(:return, 
+          s(:int,  44))))))

test/cases/module_def/module_if.tst

@@ -8,18 +8,20 @@ module Foo
   end
 end
 -- -- --
-s(:list,  [s(:module,  "Foo",  [s(:function,  :ref,
-  s(:name,  "ofthen"),
-  s(:parameters,
-    s(:field,  :int,  :n)),
-  s(:expressions,
-    s(:if,
-      s(:condition,
-        s(:int,  0)),
-      s(:if_true, 
-        s(:assign,
-          s(:name,  "isit"),
-          s(:int,  42))),
-      s(:if_false,  [s(:assign,
-  s(:name,  "maybenot"),
-  s(:int,  667))]))))])])
+s(:expressions, 
+  s(:module,  :Foo, 
+    s(:function,  :ref, 
+      s(:name,  :ofthen), 
+      s(:parameters, 
+        s(:field,  :int,  :n)), 
+      s(:expressions, 
+        s(:if, 
+          s(:condition, 
+            s(:int,  0)), 
+          s(:if_true, 
+            s(:assign, 
+              s(:name,  :isit), 
+              s(:int,  42))), 
+          s(:if_false,  [s(:assign, 
+  s(:name,  :maybenot), 
+  s(:int,  667))]))))))

test/cases/module_def/module_ops.tst

@@ -5,16 +5,18 @@ module Opers
   end
 end
 -- -- --
-s(:list,  [s(:module,  "Opers",  [s(:function,  :int, 
-  s(:name,  "foo"), 
-  s(:parameters, 
-    s(:field,  :int,  :x)), 
-  s(:expressions, 
-    s(:name,  "int"), 
-    s(:assign, 
-      s(:name,  "abba"), 
-      s(:int,  5)), 
-    s(:return, 
-      s(:operator,  "+", 
-        s(:name,  "abba"), 
-        s(:int,  5)))))])])
+s(:expressions, 
+  s(:module,  :Opers, 
+    s(:function,  :int, 
+      s(:name,  :foo), 
+      s(:parameters, 
+        s(:field,  :int,  :x)), 
+      s(:expressions, 
+        s(:name,  :int), 
+        s(:assign, 
+          s(:name,  :abba), 
+          s(:int,  5)), 
+        s(:return, 
+          s(:operator,  "+", 
+            s(:name,  :abba), 
+            s(:int,  5)))))))

test/cases/module_def/simplest_module.tst

@@ -2,4 +2,6 @@ module Simple
   5
 end
 -- -- --
-s(:list,  [s(:module,  "Simple",  [s(:int,  5)])])
+s(:expressions, 
+  s(:module,  :Simple, 
+    s(:int,  5)))