jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Fix syntax for ocaml < 3.12

Browse source
This commit is contained in:
Cédric Pasteur 2011-09-09 17:03:54 +02:00
parent 4648f7fbab
commit 1d6b68cef6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/obc/obc_mapfold.ml
View file

@ -245,7 +245,7 @@ and signature funs acc s =
let sig_params, acc = mapfold (param_it funs.global_funs) acc s.sig_params in
let sig_inputs, acc = mapfold (arg_it funs.global_funs) acc s.sig_inputs in
let sig_outputs, acc = mapfold (arg_it funs.global_funs) acc s.sig_outputs in
{ s with sig_params = sig_params; sig_inputs = sig_inputs; sig_outputs }, acc
{ s with sig_params = sig_params; sig_inputs = sig_inputs; sig_outputs = sig_outputs }, acc
let defaults = {