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 | 3db5f68b61163bb2646494e40b0a57c2c6f7c3b6 (patch) | |
| tree | 09a0874a515049a146391ac415f0ed08a50a876b | |
| parent | 0d55c46e2e4131284fadcbf0513f834a633c1da3 (diff) | |
| download | geiser-guile-3db5f68b61163bb2646494e40b0a57c2c6f7c3b6.tar.gz geiser-guile-3db5f68b61163bb2646494e40b0a57c2c6f7c3b6.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 "> ") |