;;; Simple scheme interface

(require 'cmuscheme)
(setq auto-mode-alist (cons '("\\.stk$" . scheme-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.stklos$" . scheme-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.scm$" . scheme-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.ss$" . scheme-mode) auto-mode-alist))

(autoload 'run-scheme "cmuscheme" "Run a scheme" t)

;;; Uncomment this if you want the window to split on startup.
'(setq inferior-scheme-mode-hook '(lambda () (split-window)))

(setq scheme-compile-exp-command "%s")

;;; Indentation hints for macros that don't begin with "def".
(put 'read-case 'scheme-indent-function 1)
(put 'when 'scheme-indent-function 1)
(put 'unless 'scheme-indent-function 1)
(put 'dotimes 'scheme-indent-function 1)

;;; Set this to where your scheme comes from:
(setq scheme-program-name "d:/java/silk/bin/silk")