Mercurial > urweb

comparison src/core_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 5c50b17f5e4a
children e21d0dddda09
comparison
equal deleted inserted replaced
270:b9b02613c0c2 271:42dfb0d61cf0
191 let 191 let
192 val t = (CApp ((CFfi ("Basis", "table"), loc), c), loc) 192 val t = (CApp ((CFfi ("Basis", "table"), loc), c), loc)
193 in 193 in
194 pushENamed env x n t NONE s 194 pushENamed env x n t NONE s
195 end 195 end
196 | DDatabase _ => env
196 197
197 fun patBinds env (p, loc) = 198 fun patBinds env (p, loc) =
198 case p of 199 case p of
199 PWild => env 200 PWild => env
200 | PVar (x, t) => pushERel env x t 201 | PVar (x, t) => pushERel env x t