diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-07-17 10:13:18 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-17 10:13:18 -0400 |
commit | 1e03bdf0b6f423870abcf5e54ae7f2bdf08e3e49 (patch) | |
tree | 39ac50f2c17e5c8068db2294a5bc3ee89e88cf1a /src/explify.sml | |
parent | dcfd6390610712e9d498cdb4e466eb932a6bb138 (diff) |
Explifying (non-mutual) 'val rec'
Diffstat (limited to 'src/explify.sml')
-rw-r--r-- | src/explify.sml | 2 |
1 files changed, 1 insertions, 1 deletions
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) |