Switched to the new GT

This commit is contained in:
Dmitry Boulytchev 2018-05-28 18:44:38 +03:00
parent 72c963f60f
commit 1ac302ac46
2 changed files with 8 additions and 7 deletions

View file

@ -285,8 +285,8 @@ module Stmt =
| x:IDENT {Ident x}
)
let vars p =
transform(t) (object inherit [string list] @t[foldl] method c_Ident s _ name = name::s end) [] p
let vars p = fix0 (fun f ->
transform(t) (object inherit [string list, _] @t[foldl] f method c_Ident s name = name::s end)) [] p
end