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