Mercurial > urweb

comparison src/expl_env.sml @ 2010:403f0cc65b9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New lessSafeFfi
author Adam Chlipala <adam@chlipala.net>
date Fri, 02 May 2014 19:19:09 -0400
parents b4480a56cab7
children
comparison
equal deleted inserted replaced
2009:799be3911ce3 2010:403f0cc65b9c
344 pushENamed env x n t 344 pushENamed env x n t
345 end 345 end
346 | DTask _ => env 346 | DTask _ => env
347 | DPolicy _ => env 347 | DPolicy _ => env
348 | DOnError _ => env 348 | DOnError _ => env
349 | DFfi (x, n, _, t) => pushENamed env x n t
349 350
350 fun sgiBinds env (sgi, loc) = 351 fun sgiBinds env (sgi, loc) =
351 case sgi of 352 case sgi of
352 SgiConAbs (x, n, k) => pushCNamed env x n k NONE 353 SgiConAbs (x, n, k) => pushCNamed env x n k NONE
353 | SgiCon (x, n, k, c) => pushCNamed env x n k (SOME c) 354 | SgiCon (x, n, k, c) => pushCNamed env x n k (SOME c)