diff --git a/racket/src/expander/compile/correlated-linklet.rkt b/racket/src/expander/compile/correlated-linklet.rkt index 18c0b55d45..f36eafc889 100644 --- a/racket/src/expander/compile/correlated-linklet.rkt +++ b/racket/src/expander/compile/correlated-linklet.rkt @@ -83,7 +83,8 @@ (correlated-span v) (for/fold ([ht #f]) ([k (in-list '(inferred-name undefined-error-name - method-arity-error))]) + method-arity-error + compiler-hint:cross-module-inline))]) (define p (correlated-property v k)) (if p (hash-set (or ht '#hasheq()) k p) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 166fd137a5..1c8ca351e6 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -28855,7 +28855,8 @@ static const char *startup_source = "(correlated-line v_0)" "(correlated-column v_0)" "(correlated-span v_0)" -"(let-values(((lst_0) '(inferred-name undefined-error-name method-arity-error)))" +"(let-values(((lst_0)" +" '(inferred-name undefined-error-name method-arity-error compiler-hint:cross-module-inline)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))" "((letrec-values(((for-loop_0)"