From 1e03bdf0b6f423870abcf5e54ae7f2bdf08e3e49 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 17 Jul 2008 10:13:18 -0400 Subject: Explifying (non-mutual) 'val rec' --- src/explify.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/explify.sml') diff --git a/src/explify.sml b/src/explify.sml index 2bab60df..db6b429d 100644 --- a/src/explify.sml +++ b/src/explify.sml @@ -111,7 +111,7 @@ fun explifyDecl (d, loc : EM.span) = case d of L.DCon (x, n, k, c) => SOME (L'.DCon (x, n, explifyKind k, explifyCon c), loc) | L.DVal (x, n, t, e) => SOME (L'.DVal (x, n, explifyCon t, explifyExp e), loc) - | L.DValRec _ => raise Fail "Expliofy DValRec" + | L.DValRec vis => SOME (L'.DValRec (map (fn (x, n, t, e) => (x, n, explifyCon t, explifyExp e)) vis), loc) | L.DSgn (x, n, sgn) => SOME (L'.DSgn (x, n, explifySgn sgn), loc) | L.DStr (x, n, sgn, str) => SOME (L'.DStr (x, n, explifySgn sgn, explifyStr str), loc) -- cgit v1.2.3