tobast/mpri-funcprog-project
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fix free vars of a lambda in Defun

Browse source
This commit is contained in:
Théophile Bastian 2018-01-29 15:46:34 +01:00
parent 2e5e691cfe
commit 4419abf57d
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Defun.ml
View file

@ -77,7 +77,11 @@ let rec walk_term fs t =
vars
(S.vvars (List.tl args)) in
let thisTag = freshTag () in
let freeVars = Atom.Set.elements @@ S.fv_term body in
let freeVars = Atom.Set.elements @@
Atom.Set.diff
(S.fv_term body)
(Atom.Set.of_list vars)
in
let thisFunc =
T.Branch(thisTag, freeVars, nBody) in
let fs = add_func fs arity thisFunc in