12 lines
181 B
OCaml
12 lines
181 B
OCaml
|
(* $Id$ *)
|
||
|
|
|
||
|
|
open Types
|
||
|
|
|
||
|
|
let ignore_abbrevs ppf ab =
|
||
|
|
let s = match ab with
|
||
|
|
Mnil -> "Mnil"
|
||
|
|
| Mlink _ -> "Mlink _"
|
||
|
|
| Mcons _ -> "Mcons _"
|
||
|
|
in
|
||
|
|
Format.pp_print_string ppf s
|