diff options
Diffstat (limited to 'src/cloconv.sml')
-rw-r--r-- | src/cloconv.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cloconv.sml b/src/cloconv.sml index 98f86e5b..8e962f17 100644 --- a/src/cloconv.sml +++ b/src/cloconv.sml @@ -190,7 +190,7 @@ fun ccDecl ((d, loc), D) = L.DVal (x, n, t, e) => let val t = ccTyp t - val (e, D) = ccExp E.basis (e, D) + val (e, D) = ccExp E.empty (e, D) in Ds.exp D (x, n, t, e) end |