summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2019-02-09 14:08:58 +0000
committerJose Antonio Ortega Ruiz <jao@gnu.org>2019-02-09 14:08:58 +0000
commit2d682c0ae4963bfc28966cdf9f4544412c846d11 (patch)
treedde4cca5a0b7f124ccafdec413f003d33f78d5bd
parent6b9b733315ec0d3fa0690ed004b09e6a63f35021 (diff)
downloadgeiser-chez-2d682c0ae4963bfc28966cdf9f4544412c846d11.tar.gz
geiser-chez-2d682c0ae4963bfc28966cdf9f4544412c846d11.tar.bz2
fix for geiser-chez-parameters
-rw-r--r--elisp/geiser-chez.el7
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 "> ")