Commit bbdd7b69 authored by POTTIER Francois's avatar POTTIER Francois

Fix [UnparameterizedPrinter] to print %parameter declarations.

parent 7635e62c
......@@ -40,6 +40,9 @@ let print_ocamltype ocamltype =
t
)
let print_parameter f stretch =
Printf.fprintf f "%%parameter<%s>\n" stretch.stretch_raw_content
let print_assoc = function
| LeftAssoc ->
Printf.sprintf "%%left"
......@@ -197,6 +200,7 @@ let print_rules mode b g =
) ordered_rules
let print mode f g =
List.iter (print_parameter f) g.parameters;
begin match mode with
| PrintNormal ->
print_preludes f g
......
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