 (defun cant-mode-insert (template sexp)
   (insert (replace-regexp-in-string "&" (format "%s" sexp) template)))
 
-(add-hook 'scheme-mode-hook 'cant-mode-hook)
+
+(provide 'cant-mode)

           scheme-font-lock-keywords-1
           cant-font-lock-keywords)
          ,@(cdr font-lock-defaults)))
  (local-set-key "\C-cg" 'cant-mode-splat)
  )

;; A really crude goto-def and create-def:


(defvar cant-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "\C-cg" 'cant-mode-splat)
    map))

(define-derived-mode cant-mode
  scheme-mode "Cant"
  "Major mode for Cant."
  (setq cant-font-lock-keywords
        (append scheme-font-lock-keywords-2
                (eval-when-compile
