diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-29 17:04:06 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-09-03 15:06:02 +0800 |
| commit | db03a8266156e939cd8464292cf2793e53501b93 (patch) | |
| tree | 012b190977372747ccc1bc246cd83154a125befc | |
| parent | fb6be75c2ba3b6064ad69544b409f7e7962fa74d (diff) | |
| download | geiser-guile-db03a8266156e939cd8464292cf2793e53501b93.tar.gz geiser-guile-db03a8266156e939cd8464292cf2793e53501b93.tar.bz2 | |
Allow additional parameters to Chibi binary
| -rw-r--r-- | elisp/geiser-chibi.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/elisp/geiser-chibi.el b/elisp/geiser-chibi.el index cee6c75..563067f 100644 --- a/elisp/geiser-chibi.el +++ b/elisp/geiser-chibi.el @@ -32,6 +32,13 @@ :type '(choice string (repeat string)) :group 'geiser-chibi) +(geiser-custom--defcustom geiser-chibi-extra-command-line-parameters + '("-R" "-m" "chibi ast") + "Additional parameters to supply to the Chibi binary." + :type '(repeat string) + :group 'geiser-chibi) + + ;;; REPL support: @@ -43,7 +50,8 @@ (defun geiser-chibi--parameters () "Return a list with all parameters needed to start Chibi Scheme. This function uses `geiser-chibi-init-file' if it exists." - `("-I" ,(expand-file-name "chibi/geiser/" geiser-scheme-dir) + `(,@geiser-chibi-extra-command-line-parameters + "-I" ,(expand-file-name "chibi/geiser/" geiser-scheme-dir) "-m" "geiser" ,@(and (listp geiser-chibi-binary) (cdr geiser-chibi-binary))) ) |