top/core-init.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
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))