compile-program-ordered.lsts

let compile-program-ordered(global-ctx: FContext, program: AST): Nil = (
   for vector g in program.unroll-seq { match g {
      Glb{ key=key, val=val } => (
         config-hot-path = key.key == c"std-bind-term";
         if not(typeof-term(def-to-sym(g)).is-open)
         or not(typeof-term(val).is-open) then {
            std-c-compile-global(global-ctx, key.key, val);
         };
      );
      ASTEOF{} => ();
      ASTNil{} => ();
      AType{} => ();
      Meta{} => ();
      t => (
         let e = std-c-compile-expr(global-ctx, t, false);
         let text = e.get(c"frame") + e.get(c"expression") + SAtom(c";\n");
         assemble-global-initializer-section = assemble-global-initializer-section + text;
      );
   }};
   if non-zero(compile-global-c-main-term) then std-c-compile-global(global-ctx, c"main", compile-global-c-main-term);
);