Mercurial > urweb

comparison src/core_env.sml @ 126:76a4d69719d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tagging (non-mutual) 'val rec'
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Jul 2008 10:38:03 -0400
parents fd98dd10dce7
children 80192edca30d
comparison
equal deleted inserted replaced
125:fd98dd10dce7 126:76a4d69719d8
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 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis
127 | DExport _ => env 127 | DExport _ => env
128 128
129 end 129 end