summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authormathieu2em <math.per@hotmail.com>2019-08-26 13:36:39 -0400
committermathieu2em <math.per@hotmail.com>2019-08-26 13:36:39 -0400
commitd7bcfde6303b420ca76d9364c6e8f2c6827112e6 (patch)
tree6bef23bd01fe70664099e98e1e57b1469a6ed5b5 /elisp
parent6db4fb2cd0ca86f27b8e08e15e8493a2d08d48f2 (diff)
downloadgeiser-guile-d7bcfde6303b420ca76d9364c6e8f2c6827112e6.tar.gz
geiser-guile-d7bcfde6303b420ca76d9364c6e8f2c6827112e6.tar.bz2
fix the output redirection of gambit scheme interpreter
the gsi's output wasn't redirected to the right place
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-gambit.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el
index b12fcb1..fb03b56 100644
--- a/elisp/geiser-gambit.el
+++ b/elisp/geiser-gambit.el
@@ -299,8 +299,8 @@ If `t', Geiser will use `next-error' to jump to the error's location."
(let* ((v (geiser-gambit--version (geiser-gambit--binary)))
(gambit-version (substring v 1 (string-width v))))
(if (version< gambit-version "4.9.4")
- `( ,(expand-file-name "gambit/geiser/gambit.scm" geiser-scheme-dir) "-" )
- `( "gambit/geiser" "-"))))
+ `( "-:d-" ,(expand-file-name "gambit/geiser/gambit.scm" geiser-scheme-dir) "-" )
+ `("-:d-" "gambit/geiser" "-"))))
(defun connect-to-gambit ()