Commit 16ee6642 authored by POTTIER Francois's avatar POTTIER Francois

Spacing.

parent 2dd82c6b
...@@ -11,7 +11,7 @@ let table = ...@@ -11,7 +11,7 @@ let table =
let h (e : hexpr oexpr) : hexpr = let h (e : hexpr oexpr) : hexpr =
H (hashcons table e) H (hashcons table e)
class ['self] hmap = object(self : 'self) class ['self] hmap = object (self : 'self)
inherit [_] omap inherit [_] omap
method visit_'expr env (H { node = e; _ }) = method visit_'expr env (H { node = e; _ }) =
h (self#visit_oexpr env e) h (self#visit_oexpr env e)
......
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