# HG changeset patch
# User haftmann
# Date 1292917239 -3600
# Node ID 71f4f15258a5db789f015ce1062061c6b5e3afdb
# Parent  3519e0dd8f7530b7cec7384b50e94f2613ef0234
program is separate argument to serializer

diff -r 3519e0dd8f75 -r 71f4f15258a5 src/Tools/Code/code_haskell.ML
--- a/src/Tools/Code/code_haskell.ML	Tue Dec 21 07:45:04 2010 +0100
+++ b/src/Tools/Code/code_haskell.ML	Tue Dec 21 08:40:39 2010 +0100
@@ -296,7 +296,7 @@
   end;
 
 fun serialize_haskell module_prefix string_classes { labelled_name, reserved_syms,
-    includes, module_alias, class_syntax, tyco_syntax, const_syntax, program } =
+    includes, module_alias, class_syntax, tyco_syntax, const_syntax } program =
   let
 
     (* build program *)
diff -r 3519e0dd8f75 -r 71f4f15258a5 src/Tools/Code/code_ml.ML
--- a/src/Tools/Code/code_ml.ML	Tue Dec 21 07:45:04 2010 +0100
+++ b/src/Tools/Code/code_ml.ML	Tue Dec 21 08:40:39 2010 +0100
@@ -789,7 +789,7 @@
 
 fun serialize_ml target print_ml_module print_ml_stmt with_signatures
     { labelled_name, reserved_syms, includes, module_alias,
-      class_syntax, tyco_syntax, const_syntax, program } =
+      class_syntax, tyco_syntax, const_syntax } program =
   let
 
     (* build program *)
diff -r 3519e0dd8f75 -r 71f4f15258a5 src/Tools/Code/code_runtime.ML
--- a/src/Tools/Code/code_runtime.ML	Tue Dec 21 07:45:04 2010 +0100
+++ b/src/Tools/Code/code_runtime.ML	Tue Dec 21 08:40:39 2010 +0100
@@ -95,7 +95,7 @@
     val _ = if Code_Thingol.contains_dict_var t then
       error "Term to be evaluated contains free dictionaries" else ();
     val v' = Name.variant (map fst vs) "a";
-    val vs' = (v', []) :: vs
+    val vs' = (v', []) :: vs;
     val ty' = Code_Thingol.fun_tyco `%% [ITyVar v', ty];
     val value_name = "Value.value.value"
     val program' = program
diff -r 3519e0dd8f75 -r 71f4f15258a5 src/Tools/Code/code_scala.ML
--- a/src/Tools/Code/code_scala.ML	Tue Dec 21 07:45:04 2010 +0100
+++ b/src/Tools/Code/code_scala.ML	Tue Dec 21 08:40:39 2010 +0100
@@ -329,7 +329,7 @@
   end;
 
 fun serialize_scala { labelled_name, reserved_syms, includes,
-    module_alias, class_syntax, tyco_syntax, const_syntax, program } =
+    module_alias, class_syntax, tyco_syntax, const_syntax } program =
   let
 
     (* build program *)