diff options
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index fdd02a3b..ee464917 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -1998,7 +1998,13 @@ fun p_file env (ds, ps) = newline, newline, validate, - newline] + newline, + if List.exists (fn (DDatabase _, _) => true | _ => false) ds then + box [] + else + box [newline, + string "void uw_db_init(uw_context ctx) { };", + newline]] end fun p_sql env (ds, _) = |