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 35133513 (let ((vi (get tab (cadr e) #f)))
35143514 (if vi
35153515 (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))))
35163521 ;; calls to functions with keyword args have head of `kwcall` first
35173522 (if (and (length> e 3) (equal? (cadr e) '(core kwcall)))
35183523 (let ((vi2 (get tab (cadddr e) #f)))
Original file line number Diff line number Diff line change @@ -3573,6 +3573,8 @@ end
35733573# issue #45162
35743574f45162 (f) = f (x= 1 )
35753575@test first (methods (f45162)). called != 0
3576+ f45162_2 (f) = f ([]. .. )
3577+ @test first (methods (f45162_2)). called != 0
35763578
35773579# issue #45024
35783580@test_parseerror " const x" " expected assignment after \" const\" "
You can’t perform that action at this time.
0 commit comments