Commit 0bd7b185 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-11-26 22:03:16+00:00
parent ea3e43dd
......@@ -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);
......
open Location
open Ast
(*
let () = Grammar.error_verbose := true
*)
let gram = Grammar.gcreate (Wlexer.lexer Wlexer.token Wlexer.latin1_engine)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment