@@ -270,7 +270,7 @@ bcc i (FOREIGNCALL l LANG_C rty fn args)
270 (fn ++ "(" ++ showSep "," (map fcall args) ++ ")") ++ ";\n"
270 (fn ++ "(" ++ showSep "," (map fcall args) ++ ")") ++ ";\n"
271 where fcall (t, arg) = irts_c t (creg arg)
271 where fcall (t, arg) = irts_c t (creg arg)
272bcc i (NULL r) = indent i ++ creg r ++ " = NULL;\n" -- clear, so it'll be GCed
272bcc i (NULL r) = indent i ++ creg r ++ " = NULL;\n" -- clear, so it'll be GCed
273−bcc i (ERROR str) = indent i ++ "fprintf(stderr, " ++ show str ++ "); exit(-1); exit(-1);"
273+bcc i (ERROR str) = indent i ++ "fprintf(stderr, " ++ show str ++ "); fprintf(stderr, \"\\n\"); exit(-1); exit(-1);"
274-- bcc i _ = indent i ++ "// not done yet\n"
274-- bcc i _ = indent i ++ "// not done yet\n"