blob: 44bf4e57561dee0eb58548715c689eb95dd14499 [file] [log] [blame] [edit]
let instr oc width e = Sexpr.output oc width (Arrange.instr e)
let func oc width f = Sexpr.output oc width (Arrange.func f)
let module_ oc width m = Sexpr.output oc width (Arrange.module_ m)
let module_with_custom oc width m_cs = Sexpr.output oc width (Arrange.module_with_custom m_cs)
let script oc width mode s =
List.iter (Sexpr.output oc width) (Arrange.script mode s)