home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / support / system.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  1.5 KB  |  52 lines  |  [TEXT/CCL2]
  1. ;;; system.scm -- haskell system setup
  2. ;;;
  3. ;;; author :  Sandra Loosemore
  4. ;;; date   :  22 Nov 1991
  5. ;;;
  6. ;;; This file loads in the compilation unit definition files for all
  7. ;;; of the components of the haskell system.  
  8. ;;;
  9. ;;; (The compilation unit facility is defined in support/shared/compile.scm.)
  10.  
  11.  
  12. ;;; First load the files containing module definitions.
  13. ;;; *** Add more files to the end of this list.  
  14.  
  15. (load "$Y2/support/support")
  16. (load "$Y2/ast/ast")
  17. (load "$Y2/top/top")
  18. (load "$Y2/util/haskell-utils")
  19. (load "$Y2/printers/printers")
  20. (load "$Y2/parser/parser")
  21. (load "$Y2/import-export/ie.scm")
  22. (load "$Y2/tdecl/tdecl.scm")
  23. (load "$Y2/derived/derived.scm")
  24. (load "$Y2/prec/prec.scm")
  25. (load "$Y2/depend/depend.scm")
  26. (load "$Y2/type/type.scm")
  27. (load "$Y2/cfn/cfn.scm")
  28. (load "$Y2/flic/flic.scm")
  29. (load "$Y2/backend/backend.scm")
  30. (load "$Y2/runtime/runtime.scm")
  31. (load "$Y2/csys/csys")
  32. (load "$Y2/command-interface/command-interface")
  33.  
  34. ;;; Define some functions to actually do the work.  The compilation unit 
  35. ;;; facility has conveniently kept a list of all of the unit definitions,
  36. ;;; so we can just rip through them in sequence.
  37.  
  38. (define (compile-haskell)
  39.   (compile-and-load-unit-list compilation-units))
  40.  
  41. (define (recompile-haskell)
  42.   (unless (null? remaining-units)
  43.     (compile-and-load-unit-list remaining-units)))
  44.  
  45.  
  46. (define (load-haskell)
  47.   (load-unit-list compilation-units))
  48.  
  49. (define (reload-haskell)
  50.   (unless (null? remaining-units)
  51.     (load-unit-list remaining-units)))
  52.