From db03a8266156e939cd8464292cf2793e53501b93 Mon Sep 17 00:00:00 2001 From: Lockywolf Date: Thu, 29 Aug 2019 17:04:06 +0800 Subject: Allow additional parameters to Chibi binary --- elisp/geiser-chibi.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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))) ) -- cgit v1.2.3