defining ghc-executable-find.

This commit is contained in:
Kazu Yamamoto
2014-03-13 22:21:58 +09:00
parent 0fac26e350
commit 63e59cbebd
4 changed files with 14 additions and 14 deletions

View File

@@ -96,8 +96,7 @@ unloaded modules are loaded")
;;;
(defun ghc-boot (n)
(if (not (executable-find ghc-module-command))
(message "%s not found" ghc-module-command)
(ghc-executable-find ghc-module-command
(ghc-read-lisp-list
(lambda ()
(message "Initializing...")
@@ -106,8 +105,7 @@ unloaded modules are loaded")
n)))
(defun ghc-load-modules (mods)
(if (not (executable-find ghc-module-command))
(message "%s not found" ghc-module-command)
(ghc-executable-find ghc-module-command
(ghc-read-lisp-list
(lambda ()
(message "Loading names...")