From b4398c433195b75d5e03d0774b1128fae14e9f41 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 2 Sep 2008 10:51:41 -0400
Subject: 'database' declaration threaded through compiler

---
 src/cjr_print.sml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/cjr_print.sml')

diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index 4a65cd34..cefcad44 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -709,6 +709,9 @@ fun p_decl env (dAll as (d, _) : decl) =
                  p_list_sep newline (p_fun env) vis,
                  newline]
         end
+      | DDatabase s => box [string "database",
+                            space,
+                            string s]
 
 datatype 'a search =
          Found of 'a
-- 
cgit v1.2.3