st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-18 04:38:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix for a new GT\#ppx

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-12-03 14:48:23 +03:00
parent ea4753556e
commit 15a827104e
2 changed files with 16 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Language.ml
View file

@ -318,9 +318,8 @@ module Stmt =
| "#" %"sexp" {SexpTag}
| "#" %"array" {ArrayTag}
)
let vars p = fix0 (fun f ->
transform(t) (object inherit [string list, _] @t[foldl] f method c_Named s name p = name :: f s p end)) [] p
let vars p = transform(t) (fun f -> object inherit [string list, _] @t[foldl] f method c_Named s _ name p = name :: f s p end) [] p
end