1 files changed, 46 insertions, 0 deletions
diff --git a/top/top.scm b/top/top.scm
new file mode 100644
index 0000000..1a63923
--- /dev/null
+++ b/top/top.scm
@@ -0,0 +1,46 @@
+;;; 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"))
+  )
+     
+
+