Mercurial > urweb
diff src/flat_env.sml @ 56:d3cc191cb25f
Separate compilation and automatic basis importation
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 22 Jun 2008 14:23:05 -0400 |
parents | 4ab19c19665f |
children | 717b6f8d8505 |
line wrap: on
line diff
--- a/src/flat_env.sml Sun Jun 22 11:04:10 2008 -0400 +++ b/src/flat_env.sml Sun Jun 22 14:23:05 2008 -0400 @@ -112,15 +112,4 @@ DVal (x, n, t, _) => pushENamed env x n t | DFun (n, x, dom, ran, _) => pushF env n x dom ran -fun bbind env x = - case ElabEnv.lookupC ElabEnv.basis x of - ElabEnv.NotBound => raise Fail "FlatEnv.bbind: Not bound" - | ElabEnv.Rel _ => raise Fail "FlatEnv.bbind: Rel" - | ElabEnv.Named (n, _) => pushTNamed env x n NONE - -val basis = empty -val basis = bbind basis "int" -val basis = bbind basis "float" -val basis = bbind basis "string" - end