Source file `omod_cu.ml`

1
2
3
4
5
6
7
8
# 1 "src/support/omod_cu_geq_520/omod_cu.ml"
(*---------------------------------------------------------------------------
   Copyright (c) 2024 The omod programmers. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

let name cu = match cu.Cmo_format.cu_name with
| Cmo_format.Compunit name -> name