diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 10:51:41 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 10:51:41 -0400 |
commit | b4398c433195b75d5e03d0774b1128fae14e9f41 (patch) | |
tree | 70e65dddc4c89b8cd1e13fce0d0c2ce21f50d67a /src/cjrize.sml | |
parent | 8a494ef37c4f4f7e15bbf173f44f81d12a60b91b (diff) |
'database' declaration threaded through compiler
Diffstat (limited to 'src/cjrize.sml')
-rw-r--r-- | src/cjrize.sml | 2 |
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)) => |