;;; top.scm -- compilation unit definition for the top level
 
 ;;; Global includes the ast definitions and all global data structures
 ;;; used in the compiler.
 
 (define-compilation-unit global
   (source-filename "$Y2/top/")
   (require ast)
   (unit has-utils
     (source-filename "has-utils.scm"))
   (unit core-definitions
     (require has-utils)
     (source-filename "core-definitions.scm"))
   (unit core-symbols
     (require core-definitions)
     (source-filename "core-symbols.scm"))
   (unit core-init
     (require core-symbols)
     (source-filename "core-init.scm"))
   (unit globals
     (require core-init)
     (source-filename "globals.scm"))
   (unit has-macros
     (source-filename "has-macros.scm"))
   )
 
 
 ;;; These files do not need to be required by other units  
 
 (define-compilation-unit top-level
   (source-filename "$Y2/top/")
   (require global)
   (unit phases
     (source-filename "phases.scm"))
   (unit system-init
     (source-filename "system-init.scm"))
   (unit errors
     (source-filename "errors.scm"))
   (unit tuple
     (source-filename "tuple.scm"))
   (unit symbol-table
     (source-filename "symbol-table.scm"))
   )