Commit dc7bbe2b authored by Giuseppe Castagna's avatar Giuseppe Castagna

Fixed bug with "FIXED" attributes

parent 2670c784
......@@ -70,7 +70,8 @@ let import_dtd ppf name src =
(fun a ->
let (at,ad) = e # attribute a in
match ad with
| D_fixed _ -> ()
| D_fixed s ->
Format.fprintf ppf " %s=\"%s\"" a s
| _ ->
Format.fprintf ppf " %s=%s%a"
a
......
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