X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=wrappergen%2Fwrite_caml.c;h=af3e2fb608627f806097981554b2f2120a663e31;hb=2d4a842e50718fa66d8d13aac18871c090de6b31;hp=bcdfd4112205f9f356edfe22a8e744d9271d6955;hpb=6d7d61de445629e1590d3a2ba2990ef7a651368a;p=cparser

diff --git a/wrappergen/write_caml.c b/wrappergen/write_caml.c
index bcdfd41..af3e2fb 100644
--- a/wrappergen/write_caml.c
+++ b/wrappergen/write_caml.c
@@ -29,6 +29,7 @@
 #include "entity_t.h"
 #include "type.h"
 #include "adt/error.h"
+#include "printer.h"
 
 static const scope_t *global_scope;
 static FILE          *out;
@@ -228,7 +229,7 @@ void write_caml_decls(FILE *output, const translation_unit_t *unit)
 	out          = output;
 	global_scope = &unit->scope;
 
-	ast_set_output(out);
+	print_to_file(out);
 	fprintf(out, "(* WARNING: Automatically generated file - chaning is useless *)\n");
 
 	/* write functions */