(setq load-path (append load-path
			(list (expand-file-name
			       (substitute-in-file-name "$IMPS/../el")))))

(autoload 'run-imps (expand-file-name
		     (substitute-in-file-name "$IMPS/../el/pre-imps")) "" t)

(setq scheme-mode-hook
      (function
       (lambda ()
	 (require 'tea))))

(setq auto-mode-alist (cons '("\\.t$" . scheme-mode) auto-mode-alist))
