that fixed some errors and let others show through

Author: andrew-johnson-4

PLUGINS/BACKEND/C/compile-program-ordered.lm

@@ -3,7 +3,7 @@ compile-program-ordered := λ(: global-ctx FContext)(: program AST). (: (
    (for-each-v (g in (.unroll-seq program)) (match g (
       ()
       ( (Glb( k_t rhs )) (
-         (if (.is-open(typeof g)) () (
+         (if (.is-open(typeof(def-to-sym g))) () (
             (compile-global( global-ctx k rhs ))
          ))
       ))