home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / top / system-init.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  908 b   |  21 lines  |  [TEXT/CCL2]
  1. ) '())))))
  2.   (setf *undefined-def*
  3.     (make def
  4.           (name '*undefined*)
  5.           (unit '*undefined*)
  6.           (module '*undefined*)))
  7.   )
  8.  
  9.  
  10. ;;; This should be called in the system restart code generated by a
  11. ;;; disk save
  12.  
  13. (define (load-init-files)
  14.  (load-init-file "$HASKELL/.yhaskell")
  15.  (load-init-file "~/.yhaskell"))
  16.  
  17. (define (load-init-file name)
  18.   (when (file-exists? name)
  19.     (load name)))
  20.  
  21.