Commit 2d7b53fa authored by Axel Simon's avatar Axel Simon
Browse files

turn off debugging output in type checker

parent 5824b285
......@@ -974,7 +974,7 @@ fun typeInferencePass (errStrm, ti : TI.type_info, ast) = let
| checkExports s _ = ()
val _ = List.app (checkExports SymbolTable.noSpan) ast
val _ = TextIO.print ("toplevel environment:\n" ^ E.toString toplevelEnv)
(*val _ = TextIO.print ("toplevel environment:\n" ^ E.toString toplevelEnv)*)
val (badSizes, primEnv) = E.popGroup (toplevelEnv, false)
val _ = reportBadSizes badSizes
......
......@@ -44,7 +44,7 @@ end
structure SymbolTable :> SymbolTableSig = struct
val concisePrint : bool = false
val concisePrint : bool = true
structure SymbolTable = IntBinaryMap
structure Reverse = AtomRedBlackMap
......
......@@ -6,7 +6,7 @@ structure Types = struct
type varset = TVar.set
val freshTVar = TVar.freshTVar
val concisePrint = false
val concisePrint = true
datatype texp =
(* a function taking at least one argument *)
......
......@@ -49,13 +49,13 @@ end = struct
fun name idx = (if idx>25 then name (Int.div (idx,26)-1) else "") ^
Char.toString (Char.chr (Char.ord #"a"+Int.mod (idx,26)))
fun varToString (TVAR var, tab) = (name var, tab) (*case VarMap.find (tab, var) of
SOME str => (str, tab)
| NONE => let
val str = name (VarMap.numItems(tab))
in
(str, VarMap.insert(tab, var, str))
end*)
fun varToString (TVAR var, tab) = (*(name var, tab)*) case VarMap.find (tab, var) of
SOME str => (str, tab)
| NONE => let
val str = name (VarMap.numItems(tab))
in
(str, VarMap.insert(tab, var, str))
end
structure IntSet = SplaySetFn(struct
type ord_key = int
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment