diff options
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)) => |