[r2002-11-26 22:03:16 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-26 22:03:16+00:00

driver/cduce.ml

@@ -114,10 +114,10 @@ let debug ppf = function
       Format.fprintf ppf "[DEBUG:normal_record]@\n";
       let t = Types.Record.get (Types.descr (Typer.typ !glb_env t)) in
       match Types.Record.first_label t with
-	    | `Fail -> Format.fprintf ppf "Empty"
-	    | `Success -> Format.fprintf ppf "{ }"
-	    | `NoField -> Format.fprintf ppf "{| |}"
-	    | `SomeField -> Format.fprintf ppf "{ } \ {| |}"
+	    | `Fail -> Format.fprintf ppf "Empty@\n"
+	    | `Success -> Format.fprintf ppf "{ }@\n"
+	    | `NoField -> Format.fprintf ppf "{| |}@\n"
+	    | `SomeField -> Format.fprintf ppf "{ } \ {| |}@\n"
 	    | `Label l ->
 		let (pr,ab) = Types.Record.normal' t l in
 		Format.fprintf ppf "Label (%s,@[" (Types.LabelPool.value l);

parser/parser.ml

 open Location
 open Ast
 
+(*
 let ()  = Grammar.error_verbose := true
+*)
 
 let gram    = Grammar.gcreate (Wlexer.lexer Wlexer.token Wlexer.latin1_engine)