aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/expl_env.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-06-22 14:23:05 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-06-22 14:23:05 -0400
commit1abc7fd02cd1a8183241ff9b3574ea6f3388ebcb (patch)
tree3101f6d2752a798a1ce3e8aacc8cfb147823ae6f /src/expl_env.sml
parent2500639bb374dc42be1a82bb10b0437cbba49ad1 (diff)
Separate compilation and automatic basis importation
Diffstat (limited to 'src/expl_env.sml')
-rw-r--r--src/expl_env.sml14
1 files changed, 0 insertions, 14 deletions
diff --git a/src/expl_env.sml b/src/expl_env.sml
index 2ae167b2..b1bea90b 100644
--- a/src/expl_env.sml
+++ b/src/expl_env.sml
@@ -251,18 +251,4 @@ fun sgiBinds env (sgi, _) =
| SgiVal (x, n, t) => pushENamed env x n t
| SgiStr (x, n, sgn) => pushStrNamed env x n sgn
-
-val ktype = (KType, ErrorMsg.dummySpan)
-
-fun bbind env x =
- case ElabEnv.lookupC ElabEnv.basis x of
- ElabEnv.NotBound => raise Fail "CoreEnv.bbind: Not bound"
- | ElabEnv.Rel _ => raise Fail "CoreEnv.bbind: Rel"
- | ElabEnv.Named (n, _) => pushCNamed env x n ktype NONE
-
-val basis = empty
-val basis = bbind basis "int"
-val basis = bbind basis "float"
-val basis = bbind basis "string"
-
end