From 4e987026148fe65c323afbc93cd560c07bf06b3f Mon Sep 17 00:00:00 2001
From: Yale AI Dept <ai@nebula.cs.yale.edu>
Date: Wed, 14 Jul 1993 13:08:00 -0500
Subject: Import to github.

---
 top/top.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 top/top.scm

(limited to 'top/top.scm')

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"))
+  )
+     
+
+
-- 
cgit v1.2.3