File tree Expand file tree Collapse file tree 2 files changed +7
-0
lines changed Expand file tree Collapse file tree 2 files changed +7
-0
lines changed Original file line number Diff line number Diff line change 3513
3513
(let ((vi (get tab (cadr e) #f )))
3514
3514
(if vi
3515
3515
(vinfo:set-called! vi #t ))
3516
+ ; ; calls f(x...) go through `_apply_iterate`
3517
+ (if (and (length> e 3 ) (equal? (cadr e) ' (core _apply_iterate)))
3518
+ (let ((vi2 (get tab (cadddr e) #f )))
3519
+ (if vi2
3520
+ (vinfo:set-called! vi2 #t ))))
3516
3521
; ; calls to functions with keyword args have head of `kwcall` first
3517
3522
(if (and (length> e 3 ) (equal? (cadr e) ' (core kwcall)))
3518
3523
(let ((vi2 (get tab (cadddr e) #f )))
Original file line number Diff line number Diff line change @@ -3573,6 +3573,8 @@ end
3573
3573
# issue #45162
3574
3574
f45162 (f) = f (x= 1 )
3575
3575
@test first (methods (f45162)). called != 0
3576
+ f45162_2 (f) = f ([]. .. )
3577
+ @test first (methods (f45162_2)). called != 0
3576
3578
3577
3579
# issue #45024
3578
3580
@test_parseerror " const x" " expected assignment after \" const\" "
You can’t perform that action at this time.
0 commit comments