summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjulian herrera <julian.herrera@live.com>2020-04-19 15:26:29 -0500
committerjulian herrera <julian.herrera@live.com>2020-04-19 15:26:29 -0500
commit755a7ccbcbf8d6aa63c3dae23296b1c2a7b5a45a (patch)
treef874caf06db69269bf3a7393cd88497b3922447b /elisp
parent502b3ac7e73ed9bcece8123a040a666923df5837 (diff)
downloadgeiser-chez-755a7ccbcbf8d6aa63c3dae23296b1c2a7b5a45a.tar.gz
geiser-chez-755a7ccbcbf8d6aa63c3dae23296b1c2a7b5a45a.tar.bz2
add extra parameter support to chez implementation
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-chez.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 1b5b84b..6749290 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -40,6 +40,11 @@
:type 'string
:group 'geiser-chez)
+(geiser-custom--defcustom geiser-chez-extra-command-line-parameters '("")
+ "Additional parameters to supply to the Chez binary."
+ :type '(repeat string)
+ :group 'geiser-chez)
+
;;; REPL support:
@@ -54,7 +59,8 @@ 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))))
`(,@(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)
+ ,@geiser-chez-extra-command-line-parameters)))
(defconst geiser-chez--prompt-regexp "> ")