(setq scheme-program-name "mzscheme")

(setq auto-mode-alist
        (cons '("\\.stk$" . scheme-mode)
                auto-mode-alist))
  
(setq default-major-mode 'scheme-mode)

(put 'eval-expression 'disabled nil)

(require 'font-lock)

(global-font-lock-mode t)

(show-paren-mode 1) 

(put 'upcase-region 'disabled nil)