jon.recoil.org / odoc
this repo has no description
1
fork

Configure Feed

Select the types of activity you want to include in your feed.

Use Ident.same instead of List.mem for is_shadowed check

is_shadowed used List.mem which triggers compare_val (generic
structural comparison) on Ident.t values. Replace with List.exists
using Ident.same (stamp-based integer comparison), reducing per-
element comparison cost from O(tree_size) to O(1).

Indexed_container_intf read_impl: 2.48s -> 2.16s (-13%).

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Jon Ludlam's Agent 99c2aadb c61d7ae5

+2 -3
+2 -3
src/loader/ident_env.cppo.ml
··· 762 762 Ident.persistent id 763 763 #endif 764 764 765 - let is_shadowed 766 - env id = 767 - List.mem id env.shadowed 765 + let is_shadowed env id = 766 + List.exists (fun id' -> Ident.same id id') env.shadowed 768 767 module Path = struct 769 768 770 769 let read_module_ident env id =