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 34613461 (let ((vi (get tab (cadr e) #f)))
34623462 (if vi
34633463 (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))))
34643469 ;; calls to functions with keyword args have head of `kwcall` first
34653470 (if (and (length> e 3) (equal? (cadr e) '(core kwcall)))
34663471 (let ((vi2 (get tab (cadddr e) #f)))
Original file line number Diff line number Diff line change @@ -3514,6 +3514,8 @@ end
35143514# issue #45162
35153515f45162 (f) = f (x= 1 )
35163516@test first (methods (f45162)). called != 0
3517+ f45162_2 (f) = f ([]. .. )
3518+ @test first (methods (f45162_2)). called != 0
35173519
35183520# issue #45024
35193521@test_parseerror " const x" " expected assignment after \" const\" "
You can’t perform that action at this time.
0 commit comments