Using executable-find instead of ghc-which.

This commit is contained in:
Kazu Yamamoto
2012-08-10 09:10:42 +09:00
parent 3861625420
commit 549e045673
4 changed files with 5 additions and 16 deletions

View File

@@ -95,7 +95,7 @@ unloaded modules are loaded")
;;;
(defun ghc-boot (n)
(if (not (ghc-which ghc-module-command))
(if (not (executable-find ghc-module-command))
(message "%s not found" ghc-module-command)
(ghc-read-lisp-list
(lambda ()
@@ -105,7 +105,7 @@ unloaded modules are loaded")
n)))
(defun ghc-load-modules (mods)
(if (not (ghc-which ghc-module-command))
(if (not (executable-find ghc-module-command))
(message "%s not found" ghc-module-command)
(ghc-read-lisp-list
(lambda ()