Mercurial > urweb

comparison src/core_env.sml @ 125:fd98dd10dce7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corifying (non-mutual) 'val rec'
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Jul 2008 10:23:04 -0400
parents 813e5a52063d
children 76a4d69719d8
comparison
equal deleted inserted replaced
124:541282b81454 125:fd98dd10dce7
121 121
122 fun declBinds env (d, _) = 122 fun declBinds env (d, _) =
123 case d of 123 case d of
124 DCon (x, n, k, c) => pushCNamed env x n k (SOME c) 124 DCon (x, n, k, c) => pushCNamed env x n k (SOME c)
125 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s 125 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s
126 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t (SOME e) s) env vis
126 | DExport _ => env 127 | DExport _ => env
127 128
128 end 129 end