···

       
799
       
799
       
 
       
      compare = a: b: (a.priority or 1000) < (b.priority or 1000);

     

       
800
       
800
       
 
       
    in sort compare defs';

     

       
801
       
801
       
 
       


     

       
802
       
802
       
-
       
  /* Hack for backward compatibility: convert options of type

     

       
803
       
803
       
-
       
     optionSet to options of type submodule.  FIXME: remove

     

       
804
       
804
       
-
       
     eventually. */

     

       
805
       
802
       
 
       
  fixupOptionType = loc: opt:

     

       
806
       
803
       
 
       
    let

     

       
807
       
804
       
 
       
      options = opt.options or

     

       
808
       
805
       
 
       
        (throw "Option `${showOption loc}' has type optionSet but has no option attribute, in ${showFiles opt.declarations}.");

     

       
806
       
806
       
+
       


     

       
807
       
807
       
+
       
      # Hack for backward compatibility: convert options of type

     

       
808
       
808
       
+
       
      # optionSet to options of type submodule.  FIXME: remove

     

       
809
       
809
       
+
       
      # eventually.

     

       
809
       
810
       
 
       
      f = tp:

     

       
810
       
811
       
 
       
        let optionSetIn = type: (tp.name == type) && (tp.functor.wrapped.name == "optionSet");

     

       
811
       
812
       
 
       
        in