Mercurial > urweb

comparison src/mono_env.sml @ 271:42dfb0d61cf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'database' declaration threaded through compiler
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Sep 2008 10:51:41 -0400
parents ab86aa858e6c
children 09c66a30ef32
comparison
equal deleted inserted replaced
270:b9b02613c0c2 271:42dfb0d61cf0
105 env xncs 105 env xncs
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 | DDatabase _ => env
110 111
111 fun patBinds env (p, loc) = 112 fun patBinds env (p, loc) =
112 case p of 113 case p of
113 PWild => env 114 PWild => env
114 | PVar (x, t) => pushERel env x t NONE 115 | PVar (x, t) => pushERel env x t NONE