Commit dec58545 authored by Simon Cruanes's avatar Simon Cruanes
Browse files

small changes

parent 553177f1
......@@ -108,6 +108,7 @@ end
(*s this module manages scoping of vars using a stack of
variables bindings *)
(* TODO : use a hashtable and a stack of key lists instead *)
module Scope
(T : sig
type key
......
......@@ -25,8 +25,6 @@ open Decl
open Task
let eliminate_polymorphism = Register.store (fun () -> Trans.identity)
let polymorphic_to_untyped = Register.store (fun () -> Trans.identity)
let () = Register.register_transform "polymorphic_to_untyped" polymorphic_to_untyped
......@@ -17,4 +17,4 @@
(* *)
(**************************************************************************)
val eliminate_polymorphism : Task.task Register.trans_reg
val polymorphic_to_untyped : Task.task Register.trans_reg
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