Mercurial > urweb

comparison src/mono_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 813e5a52063d
children 6847741e1f5f
comparison
equal deleted inserted replaced
125:fd98dd10dce7 126:76a4d69719d8
82 | SOME x => x 82 | SOME x => x
83 83
84 fun declBinds env (d, _) = 84 fun declBinds env (d, _) =
85 case d of 85 case d of
86 DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s 86 DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s
87 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis
87 | DExport _ => env 88 | DExport _ => env
88 89
89 end 90 end