From 4e987026148fe65c323afbc93cd560c07bf06b3f Mon Sep 17 00:00:00 2001 From: Yale AI Dept Date: Wed, 14 Jul 1993 13:08:00 -0500 Subject: Import to github. --- top/core-init.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 top/core-init.scm (limited to 'top/core-init.scm') diff --git a/top/core-init.scm b/top/core-init.scm new file mode 100644 index 0000000..7ba9fa1 --- /dev/null +++ b/top/core-init.scm @@ -0,0 +1,14 @@ + + +(define *core-symbols* '()) +(define *prelude-core-symbols* '()) + +; expands into lots of (define *core-??* '()) + +(define-core-variables) + +(define (init-core-symbols) + (setf *core-symbols* (make-table)) + (setf *prelude-core-symbols* (make-table)) + (create-core-globals)) + -- cgit v1.2.3