diff --git a/src/Lean/Compiler/IR/EmitC.lean b/src/Lean/Compiler/IR/EmitC.lean index 0bbfadcaca53..074b44a0767a 100644 --- a/src/Lean/Compiler/IR/EmitC.lean +++ b/src/Lean/Compiler/IR/EmitC.lean @@ -94,7 +94,10 @@ def emitCInitName (n : Name) : M Unit := def shouldExport (n : Name) : Bool := -- HACK: exclude symbols very unlikely to be used by the interpreter or other consumers of -- libleanshared to avoid Windows symbol limit - !(`Lean.Compiler.LCNF).isPrefixOf n && !(`Lean.IR).isPrefixOf n && !(`Lean.Server).isPrefixOf n + !(`Lean.Compiler.LCNF).isPrefixOf n && + !(`Lean.IR).isPrefixOf n && + -- Lean.Server.findModuleRefs is used in Verso + (!(`Lean.Server).isPrefixOf n || n == `Lean.Server.findModuleRefs) def emitFnDeclAux (decl : Decl) (cppBaseName : String) (isExternal : Bool) : M Unit := do let ps := decl.params