Fixed typing of iterator
This commit is contained in:
parent
09afb3aca4
commit
7bf5f3f323
2 changed files with 13 additions and 0 deletions
|
@ -361,6 +361,8 @@ let rec fuse_args_lin args_lin collect_lins =
|
|||
| args_lin, [] -> args_lin
|
||||
| (Lat r)::args_lin, collect_lins ->
|
||||
(Lat r)::(fuse_args_lin args_lin collect_lins)
|
||||
| (Lvar r)::args_lin, x::collect_lins ->
|
||||
(Lvar r)::(fuse_args_lin args_lin collect_lins)
|
||||
| _::args_lin, x::collect_lins ->
|
||||
x::(fuse_args_lin args_lin collect_lins)
|
||||
|
||||
|
|
11
test/bad/linear_map.ept
Normal file
11
test/bad/linear_map.ept
Normal file
|
@ -0,0 +1,11 @@
|
|||
const n:int = 100
|
||||
|
||||
fun f(a:int^n at r) returns (o:int^n at r)
|
||||
let
|
||||
o = [ a with [0] = 0 ]
|
||||
tel
|
||||
|
||||
fun g(a:int^n^n) returns (o:int^n^n)
|
||||
let
|
||||
o = map<<n>> f (a)
|
||||
tel
|
Loading…
Reference in a new issue