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