Mercurial > urweb

comparison src/expl_env.sml @ 1199:c316ca3c9ec6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Pushing policies through
author Adam Chlipala <adamc@hcoop.net>
date Sun, 04 Apr 2010 12:29:34 -0400
parents 0657e5adc938
children cd8d2c73ccf4
comparison
equal deleted inserted replaced
1197:6d8e3dcb9713 1199:c316ca3c9ec6
342 val t = (CModProj (tn, [], "css_class"), loc) 342 val t = (CModProj (tn, [], "css_class"), loc)
343 in 343 in
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 348
348 fun sgiBinds env (sgi, loc) = 349 fun sgiBinds env (sgi, loc) =
349 case sgi of 350 case sgi of
350 SgiConAbs (x, n, k) => pushCNamed env x n k NONE 351 SgiConAbs (x, n, k) => pushCNamed env x n k NONE
351 | SgiCon (x, n, k, c) => pushCNamed env x n k (SOME c) 352 | SgiCon (x, n, k, c) => pushCNamed env x n k (SOME c)