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

Allow use of declared parameters within parameters

Browse source 
Allow this node :

node f<<m:int; t1: int^m>>(a:int^m) = (o:int^m)
let
o = map<<m>> (+)(a, t1);
tel
This commit is contained in:
Gwenaël Delaval 2015-02-27 16:15:55 +01:00
parent c5c5654068
commit e0bbc838d5
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/heptagon/analysis/typing.ml
View file

@ -1213,7 +1213,7 @@ let typing_contract cenv h contract =
let build_node_params cenv l =
let check_param env p =
let ty = check_type cenv p.p_type in
let ty = check_type env p.p_type in
let p = { p with p_type = ty } in
let n = Names.local_qn p.p_name in
p, QualEnv.add n ty env