self_import.ml 261 Bytes
Newer Older
Thierry Martinez's avatar
Thierry Martinez committed
1
2
3
4
5
module%import Self_import = struct
  [%%types]
end

let x = A
Thierry Martinez's avatar
Thierry Martinez committed
6
7
8
9
10
11
12
13
14
15
16
17

module Make (X : S) = struct
  module%import Self_import = struct
    module%import Make (X : S) = struct
      [%%types]
    end
  end

  let perform_twice t =
    X.perform t;
    X.perform t
end