summaryrefslogtreecommitdiff
path: root/src/cjrize.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-09-02 10:51:41 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-09-02 10:51:41 -0400
commitb4398c433195b75d5e03d0774b1128fae14e9f41 (patch)
tree70e65dddc4c89b8cd1e13fce0d0c2ce21f50d67a /src/cjrize.sml
parent8a494ef37c4f4f7e15bbf173f44f81d12a60b91b (diff)
'database' declaration threaded through compiler
Diffstat (limited to 'src/cjrize.sml')
-rw-r--r--src/cjrize.sml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml
index 29182e2c..c4c77021 100644
--- a/src/cjrize.sml
+++ b/src/cjrize.sml
@@ -423,6 +423,8 @@ fun cifyDecl ((d, loc), sm) =
(NONE, SOME (ek, "/" ^ s, n, ts), sm)
end
+ | L.DDatabase s => (SOME (L'.DDatabase s, loc), NONE, sm)
+
fun cjrize ds =
let
val (dsF, ds, ps, sm) = foldl (fn (d, (dsF, ds, ps, sm)) =>