diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2019-02-09 14:08:58 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2019-02-09 14:08:58 +0000 |
| commit | 2d682c0ae4963bfc28966cdf9f4544412c846d11 (patch) | |
| tree | dde4cca5a0b7f124ccafdec413f003d33f78d5bd | |
| parent | 6b9b733315ec0d3fa0690ed004b09e6a63f35021 (diff) | |
| download | geiser-chez-2d682c0ae4963bfc28966cdf9f4544412c846d11.tar.gz geiser-chez-2d682c0ae4963bfc28966cdf9f4544412c846d11.tar.bz2 | |
fix for geiser-chez-parameters
| -rw-r--r-- | elisp/geiser-chez.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el index c6f7130..67b9382 100644 --- a/elisp/geiser-chez.el +++ b/elisp/geiser-chez.el @@ -48,11 +48,10 @@ (defun geiser-chez--parameters () "Return a list with all parameters needed to start Chez Scheme. This function uses `geiser-chez-init-file' if it exists." - (let ((init-file) (and (stringp geiser-chez-init-file) - (expand-file-name geiser-chez-init-file))) + (let ((init-file (and (stringp geiser-chez-init-file) + (expand-file-name geiser-chez-init-file)))) `(,@(and init-file (file-readable-p init-file) (list init-file)) - ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir))) - ) + ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir)))) (defconst geiser-chez--prompt-regexp "> ") |