1 ;;; Simple rc to configure gambit.
3 (when (yard-optimistically-locate-feature 'gambit
)
4 ;; Following (perhaps uncritically) section 5.6 of the Gambit-C
6 (autoload 'gambit-inferior-mode
"gambit" "Hook Gambit mode into cmuscheme.")
7 (autoload 'gambit-mode
"gambit" "Hook Gambit mode into scheme.")
8 (add-hook 'inferior-scheme-mode-hook
'gambit-inferior-mode
)
9 (add-hook 'scheme-mode-hook
'gambit-mode
)
10 (setq scheme-program-name
"gambitc -:d-"))