Mercurial > urweb
diff src/cjr_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 | 537db4ee89f4 |
children | 717b6f8d8505 |
line wrap: on
line diff
--- a/src/cjr_env.sml Sun Jun 22 11:04:10 2008 -0400 +++ b/src/cjr_env.sml Sun Jun 22 14:23:05 2008 -0400 @@ -121,15 +121,4 @@ | DFun (n, x, dom, ran, _) => pushF env n x dom ran | DStruct _ => env -fun bbind env x = - case ElabEnv.lookupC ElabEnv.basis x of - ElabEnv.NotBound => raise Fail "CjrEnv.bbind: Not bound" - | ElabEnv.Rel _ => raise Fail "CjrEnv.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