Fixed stupid bug in the order of args
This commit is contained in:
parent
3618ccc8ed
commit
740114764c
1 changed files with 1 additions and 1 deletions
|
@ -199,7 +199,7 @@ struct
|
|||
List.fold_left (fun pds n -> Pnode n :: pds) acc nds
|
||||
| _ -> pd :: acc
|
||||
in
|
||||
{ p with p_desc = List.fold_right program_desc [] p.p_desc }
|
||||
{ p with p_desc = List.fold_right program_desc p.p_desc [] }
|
||||
end
|
||||
|
||||
end
|
||||
|
|
Loading…
Reference in a new issue