Index: /nodes/channelea.ml
===================================================================
--- /nodes/channelea.ml	(revision 1996)
+++ /nodes/channelea.ml	(revision 1997)
@@ -40,4 +40,6 @@
  where f is the result of running prepconf.py on a file with a list of 
  paths to the wleiden.conf's to consider.
+
+ Lodewijk Voge <lvoge@cs.vu.nl>
 *)
 
@@ -51,8 +53,8 @@
 and mutation_rate = 0.1
 (** The most basic score table *)
-and scoretable = [ ((<=) 2,  1);
-		   ((==) 2, -30);
-		   ((==) 1, -70);
-		   ((==) 0, -100) ]
+and scoretable = [ (<=) 2,  1;
+		   (==) 2, -30;
+		   (==) 1, -70;
+		   (==) 0, -100 ]
 
 (* the type definitions. note that Caml has trouble with mutually recursive
@@ -303,9 +305,9 @@
 let parse_special_conf fname =
 	let spacere = Str.regexp " " in
-	let functable = [ ("nointerference", parse_nointerference);
-			  ("important", parse_quadruplet importantlinks);
-			  ("interference", parse_quadruplet interference);
-			  ("unusable", parse_unusable);
-			  ("supernode", parse_supernode) ] in
+	let functable = [ "nointerference", parse_nointerference;
+			  "important", parse_quadruplet importantlinks;
+			  "interference", parse_quadruplet interference;
+			  "unusable", parse_unusable;
+			  "supernode", parse_supernode ] in
 	let do_line fs = (List.assoc (head fs) functable) (tail fs) in
 	try