(define (initialize-haskell-system)
   (when (not *haskell-initialized?*)
     (initialize-haskell-system/forced))
   'haskell-ready)
 
 (predefine (**tycon/def def args))  ; in util/constructors.scm
 (predefine (init-cse-structs))      ; in csys/dump-cse.scm
 
 (define (initialize-haskell-system/forced)
   (setf *haskell-initialized?* '#t)
   (setf *error-output-port* (current-output-port))
   (init-core-symbols)
   (init-tuples)
   (setf *standard-module-default*
 	(make default-decl
 	      (types (list
 		      (**tycon/def (core-symbol "Int") '())
 		      (**tycon/def (core-symbol "Double") '())))))
   (setf *undefined-def*
 	(make def
 	      (name '*undefined*)
 	      (unit '*undefined*)
 	      (module '*undefined*)))
   (setf *printer-class*
 	(make class
 	      (name '|Printers|)
 	      (module '|*Core|) (unit '|*Core|)))
   (init-cse-structs))
 
 ;;; This should be called in the system restart code generated by a
 ;;; disk save
 
 (define (load-init-files)
  (load-init-file "$HASKELL/.yhaskell")
  (load-init-file "~/.yhaskell"))
 
 (define (load-init-file name)
   (when (file-exists? name)
     (load name)))