The menu is never open, and if it is open occasionally, then you can't go to any section.

https://b-ok.asia/book/5339512/232b85

+ ocamlc.opt -c -g -o scheduler.cmo scheduler.ml
File "scheduler.ml", line 27, characters 51-78:
27 |     try (List.iter addlinks p.p_eqs) with Cycle -> (raise Combinational_cycle) ;
                                                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
Warning 21: this statement never 

exception Cycle
type mark = NotVisited | InProgress | Visited
 
type 'a graph =
    { mutable g_nodes : 'a node list }
and 'a node = {
  n_label : 'a;
  mutable n_mark : mark;
  mutable n_link_to : 'a node list;
  mutable n_linked_by : 'a node list;
}
 
let mk_graph () = { g_nodes = [] }
 
let add_node

open Netlist_ast
open Graph
 
exception Combinational_cycle
 
let read_exp (_,exp) = 
    let f a = match a with | Avar x -> [x] | _ -> [] in
    match exp with
    | Earg a | Enot a | Eslice (_,_,a) | Eselect (_,a) -> f a
    | Ebinop (_,a,b) | Econcat (a,b) -> (f a)@(f b)
    | Emux (a,b,c) -> (f a)

 
/* analyseur syntaxique pour le langage Julia */
 
%{
  open Ast
  open Lexing
%}
 
/* liste des tokens */
 
%token EOF
%token NEWLINE
 
%token RETURN ASSIGN END
 
%token FOR WHILE
%token ELSE ELSEIF IF
%token FUNCTION
%token MUTABLE STRUCT
 
%token <int64> CST
%token <string> IDENT
%token <string> STRIN

 
/* analyseur syntaxique pour le langage Julia */
 
%{
  open Ast
  open Lexing
%}
 
/* liste des tokens */
 
%token EOF
%token NEWLINE
 
%token RETURN ASSIGN END
 
%token FOR WHILE
%token ELSE ELSEIF IF
%token FUNCTION
%token MUTABLE STRUCT
 
%token <int64> CST
%token <string> IDENT
%token <string> STRIN

 
(* Analyseur lexical pour le langage Julia *)
 
{
  open Parser
  open Lexing
 
  let keywords =
    [
      "true", TRUE;
      "false", FALSE;
      "return", RETURN;
      "for", FOR;
      "end", END;
      "while", WHILE;
      "else", ELSE;
      "elseif", ELSEIF;
      "if", IF;
      "functio

 
(* Analyseur lexical pour le langage Julia *)
 
{
  open Parser
  open Lexing
 
  let keywords =
    [
      "true", TRUE;
      "false", FALSE;
      "return", RETURN;
      "for", FOR;
      "end", END;
      "while", WHILE;
      "else", ELSE;
      "elseif", ELSEIF;
      "if", IF;
      "functio

26f359fc-e3f6-4727-8af1-72a1a4a0819d