home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / support / support.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  958 b   |  37 lines  |  [TEXT/CCL2]
  1. ;;; support.scm -- load support files shared by all systems
  2. ;;;
  3. ;;; author :  Sandra Loosemore
  4. ;;; date   :  28 Oct 1991
  5. ;;;
  6. ;;;
  7.  
  8.  
  9. ;;; Keep track of all compilation units defined.
  10. ;;; This has to go here and not in compile.scm because we don't want this
  11. ;;; list reinitialized every time that file is loaded.
  12.  
  13. (define compilation-units '())
  14.  
  15.  
  16. ;;; Load this file first; it defines the basic compilation system support.
  17. ;;; It doesn't matter if this ends up loading source because we'll compile
  18. ;;; and reload it below.  
  19.  
  20. (load "$Y2/support/compile.scm")
  21.  
  22.  
  23. ;;; Define a real compilation unit for shared support files.
  24.  
  25. (define-compilation-unit support
  26.   (source-filename "$Y2/support/")
  27.   (unit compile (source-filename "compile.scm"))
  28.   (unit utils   (source-filename "utils.scm"))
  29.   (unit xp
  30.     (unit pprint (source-filename "pprint.scm"))
  31.     (unit hash (source-filename "hash.scm"))
  32.     (unit format (source-filename "format.scm")
  33.           (require pprint)))
  34.   )
  35.  
  36.  
  37.