diff options
| author | julian herrera <julian.herrera@live.com> | 2020-04-19 15:26:29 -0500 |
|---|---|---|
| committer | julian herrera <julian.herrera@live.com> | 2020-04-19 15:26:29 -0500 |
| commit | 755a7ccbcbf8d6aa63c3dae23296b1c2a7b5a45a (patch) | |
| tree | f874caf06db69269bf3a7393cd88497b3922447b | |
| parent | 502b3ac7e73ed9bcece8123a040a666923df5837 (diff) | |
| download | geiser-chez-755a7ccbcbf8d6aa63c3dae23296b1c2a7b5a45a.tar.gz geiser-chez-755a7ccbcbf8d6aa63c3dae23296b1c2a7b5a45a.tar.bz2 | |
add extra parameter support to chez implementation
| -rw-r--r-- | elisp/geiser-chez.el | 8 |
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 "> ") |