From 3db5f68b61163bb2646494e40b0a57c2c6f7c3b6 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 9 Feb 2019 14:08:58 +0000 Subject: fix for geiser-chez-parameters --- elisp/geiser-chez.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'elisp') 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 "> ") -- cgit v1.2.3