 (defun egison-indent-line ()
   "indent current line as Egison code."
   (interactive)
-  (indent-line-to (indent-point)))
+  (indent-line-to (egison-indent-point)))
 
 
 (defvar egison-mode-map

  (use-local-map egison-mode-map)
  (setq major-mode 'egison-mode)
  (setq mode-name "Egison")
  (egison-mode-variables)
  (run-mode-hooks 'egison-mode-hook))



                    (t (+ 1 cp)))))
        0))))

(defun egison-keyword-indent-point (name)
  (cond ((equal "module" name) 2)
        ((equal "define" name) 2)
        ((equal "test" name) 2)
