[nongnu] elpa/geiser-chibi 354d399 21/38: Allow additional parameters to Chibi binary

[Philip Kaludercic]

branch: elpa/geiser-chibi
commit 354d39965b34793dbcef5c37545a3618590ca5d4
Author: Lockywolf <lockywolf@gmail.com>
Commit: Lockywolf <lockywolf@gmail.com>

    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)))
   )