Correct output toward hepts

This commit is contained in:
Gwenaël Delaval 2012-06-29 02:01:49 +02:00
parent ef00823cf7
commit bf03077cd9

View file

@ -202,7 +202,7 @@ let main_def_of_class_def cd =
let format_s = format_for_type ty in
let format_s =
if !Compiler_options.hepts_simulation
then format_s ^ "\\n"
then format_s ^ "\n"
else format_s ^ " " in
let nbuf_opt = need_buf_for_ty ty in
let ep = match nbuf_opt with