home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / top / core-init.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  275 b   |  15 lines  |  [TEXT/CCL2]
  1.  
  2.  
  3. (define *core-symbols* '())
  4. (define *prelude-core-symbols* '())
  5.  
  6. ; expands into lots of (define *core-??* '())
  7.  
  8. (define-core-variables)
  9.  
  10. (define (init-core-symbols)
  11.   (setf *core-symbols* (make-table))
  12.   (setf *prelude-core-symbols* (make-table))
  13.   (create-core-globals))
  14.  
  15.