Mercurial > urweb

comparison src/mono_env.sml @ 338:e976b187d73a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SQL sequences
author Adam Chlipala <adamc@hcoop.net>
date Sun, 14 Sep 2008 11:02:18 -0400
parents 4260ad920c36
children 1901db85acb4
comparison
equal deleted inserted replaced
337:18d5affa790d 338:e976b187d73a
106 end 106 end
107 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s 107 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s
108 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis 108 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis
109 | DExport _ => env 109 | DExport _ => env
110 | DTable _ => env 110 | DTable _ => env
111 | DSequence _ => env
111 | DDatabase _ => env 112 | DDatabase _ => env
112 113
113 fun patBinds env (p, loc) = 114 fun patBinds env (p, loc) =
114 case p of 115 case p of
115 PWild => env 116 PWild => env